On Error Resume Next
Dim FileName,fs,foldername, iCount
foldername = InputBox("请输入要遍历的文件夹")
If foldername = "" Then
	wscript.quit
End If
Set fs = CreateObject("scripting.filesystemobject")
digui(foldername)'调用递归函数进行遍历
MsgBox FileName

'下面是递归查找函数
Function digui(path)
	Set folder = fs.getfolder(path)
	Set subfolders = folder.subfolders
	Set Files = folder.Files
	For Each i In Files
		FileName=FileName & i.path & vbNewLine '找到则追加到变量FileName中
		iCount = iCount + 1
		If iCount = 10 Then 
			MsgBox FileName
			FileName = ""
			iCount = 0
		End If
	Next
	For Each j In subfolders
		digui (j.path) '递归查找子目录
	Next
End Function
复制代码

Dim ws
Set ws = CreateObject("WScript.Shell")

If WSH.Arguments.Count = 0 Then
    ws.Run "cscript " & chr(34) & WSH.ScriptFullName & chr(34) & " ARG", 0
    WScript.Quit
End If

Dim folderPath, iCount, str, objExec
folderPath = InputBox("输入要遍历的文件夹路径")
If isEmpty(folderPath) Then WScript.Quit

iCount = 0
str = ""
Set objExec = ws.Exec( "cmd /c dir /b /a-d /s " & chr(34) & folderPath & chr(34) )

Do Until objExec.StdOut.AtEndOfStream
    iCount = iCount + 1
    str = str & objExec.StdOut.ReadLine & vbLf
    If iCount Mod 10 = 0 Then
        MsgBox str
        str = ""
    End If
Loop
If str <> "" Then MsgBox str
复制代码