PUBLIC _LST AS NEW LIST(OF STRING)
遍历函数名字 遍历文件
Dim str As String = Args(0) '非末级目录
If str.Contains("RECYCLE") = False AndAlso str.Contains("System Volume Information") = False AndAlso str.Contains("WINDOWS\Installer") = False AndAlso str.Contains("Microsoft\Feeds") = False _
AndAlso str.Contains("Microsoft\Installer") = False AndAlso str.Contains("Local Settings\Temp") = False Then
For Each s As String In FileSys.GetDirectories(str)
If s.Contains("RECYCLE") = False AndAlso s.Contains("System Volume Information") = False AndAlso s.Contains("WINDOWS\Installer") = False AndAlso s.Contains("Microsoft\Feeds") = False _
AndAlso s.Contains("Microsoft\Installer") = False AndAlso s.Contains("Local Settings\Temp") = False Then
_lst.Add(s)
End If
Next
For Each s As String In FileSys.GetFiles(str)
If s.Contains(".ldb") = False And s.Contains(".db") = False Then
_lst.Add(s)
End If
Next
If FileSys.GetDirectories(str).Count > 0 Then '如果不为末级目录
Functions.Execute("遍历文件",str) '再次循环
End If
End If
一运行 就闪关 FT，不知道哪里有问题
加好友 
发短信
Post By：2015/2/11 13:11:00 [只看该作者]
