|
For Each f As String In FileSys.GetDirectories("d:\test")
Dim fname As String = FileSys.GetName(f)
Dim filter As String = "第一列 = '" & fname & "'"
If DataTables("表A").Find(filter) Is Nothing Then
FileSys.DeleteDirectory(f, 2, 3)
Else
For Each f1 As String In FileSys.GetDirectories(f)
fname = FileSys.GetName(f1)
filter = "第二列 = '" & fname & "'"
If DataTables("表A").Find(filter) Is Nothing Then
FileSys.DeleteDirectory(f1, 2, 3)
Else
'继续复制代码
End If
Next
End If
Next
|
加好友 
发短信
Post By：2015/3/29 9:31:00 [只看该作者]
