掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
指定したディレクトリ配下のサブディレクトリにファイルが存在しない場合、そのサブディレクトリを削除するには？ (ID:146647)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
『ファイルもディレクトリも存在しない』というディレクトリまで辿り、 それを上位に向かって再帰的に削除してみては如何でしょう。 Imports System.IO Module Module1 Sub Main() RemoveEmptyDirectories("C:\Test") End Sub Public Sub RemoveEmptyDirectories(ByVal baseDirectory As String) Array.ForEach(Directory.GetDirectories(baseDirectory), AddressOf RemoveEmptyDirectories) If Directory.GetFiles(baseDirectory).Length = 0 AndAlso Directory.GetDirectories(baseDirectory).Length = 0 Then Debug.Print("{0:HH:mm:ss.ffff yyyy/MM/dd}, DELETE ""{1}""", Now(), baseDirectory) Directory.Delete(baseDirectory) End If End Sub End Module
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.