DoEvents '让出控制权 Loop For c = 1 To b '使用递归方法,遍历所有目录 SearchFiles Folder(c), FileType Next End Function Private Sub Command1_Click() '调用 SearchFiles &qu...
Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(GetFormPath)Set fc = f.Files For Each f1 In fc For i = 1 To Len(f1.Name)spfname...