Dim pth As String = args(0)
Dim file As String = args(1)For Each fl As String In filesys.GetFiles(pth) If file = filesys.GetName(fl) Then
msgbox("找到了 " & fl)
End IfNextFor Each dr As String In FileSys.GetDirectories(pth) Functions.Execute("listfile",dr, file)Next
--------------