2010/07/22(Thu) 15:26:04 編集(投稿者)
ありがとうございます。
ファイル取得できました。
配列aa直下のファイル以外を配列bbからチェックして削除したいのですが
最初のLOOPでC:\test\test4\aaa.txtを削除してしまいます。
どう考えればC:\test\test4\aaa.txtは削除対象外となるのでしょうか・・・。
配列aaに格納
■aa(C:\test\test2,C:\test\test4)
配列bbに格納
■bb(C:\test\aaa.txt,C:\test\bbb.txt,C:\test\test2\aaa.txt,C:\test\test2\test3\aaa.txt,C:\test\test4\aaa.txt)
For cnt1 = 0 To aa(cnt1)
'削除しちゃいけないパス
str_Kopass = aa(cnt)
For Intpass = 0 To bb(Intpass)
Dim cFileInfo As New System.IO.FileInfo(bb(intpass))
If str_Kopass <> cFileInfo.DirectoryName Then
System.IO.File.Delete(bb(intpass))
End If
Next Intpas
Next cnt1