遍历指定文件夹下所有的文件

    Dim thing As Variant
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fld = fso.getFolder("strFolderPath")
   
    For Each thing In fld.Files
           ...... 
    Next

   遍历指定文件夹下所有的文件thing

转载于:https://www.cnblogs.com/MyFavorite/archive/2007/10/10/919157.html