指定したディレクトリ配下のサブディレクトリにファイルが存在しない場合、そのサブディレクトリを削除するには?

解決


りょう  2009-12-08 19:52:11  No: 146645

こんにちは。
今、VB2008でファイル操作等の勉強を行っています。
例えば、Testというフォルダがあり、以下のようなディレクトリ構造になっているとします。
Test
  ┣Dir1
  ┃  ┣Dir2
  ┃  ┃  ┗test1.txt
  ┃  ┣Dir3
  ┃  ┗Dir4
  ┃    ┗Dir5
  ┗Dir6
      ┗test2.txt
ここで、Dir1〜Dir6はTestのサブフォルダとし、test1.txtとtest2.txtは任意のファイルとします。
やりたいことは、指定したフォルダ(ここではTestフォルダ)内のサブフォルダを自動的に調べ、
対象サブフォルダのうち、ファイルがないフォルダを自動的に削除するプログラムを作成したいのですが、
上の例でいうと、フォルダ内にファイルのないDir3とDir5はもちろんのこと、
配下にファイルが存在しないDir4も自動的に削除したいのです。
(この場合は、Dir4をDir5もろとも削除できれば一番いいです。)
このようなことを自動的に行うにはどのようにすればよいか、ご教示頂けませんでしょうか。
よろしくお願いいたします。


師走  2009-12-08 21:42:36  No: 146646

下記の  「VB.NET Tips一覧」  の中の「フォルダ関係」の
中の幾つかを組み合わせれば出来ると思います。  お試しあれ!

http://hanatyan.sakura.ne.jp/dotnet/index.html

他のサンプルコードが掲載されているHPも色々とあるでしょう。

http://hiros-dot.net/VBNET2005/FileMenu.htm    など


魔界の仮面弁士  2009-12-08 22:05:53  No: 146647

『ファイルもディレクトリも存在しない』というディレクトリまで辿り、
それを上位に向かって再帰的に削除してみては如何でしょう。

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


りょう  2009-12-08 22:34:54  No: 146648

師走さま、魔界の仮面弁士さま、ありがとうございました。
今回の問題の解決のみならず、再帰の勉強もできました。
今後ともよろしくお願いします。


りょう  2009-12-09 00:51:19  No: 146649

解決を忘れました...


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加