死循环了
Functions.Execute("遍历文件",str) '再次循环
str 应该重新赋值
试试
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)
Functions.Execute("遍历文件",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
End If
加好友 
发短信
Post By：2015/2/11 13:36:00 [显示全部帖子]
