如何读对文件夹中的文件进行批处理？

Question

有一文件夹中含有N个文件，想对这些文件进行批处理

Answer 1

怎么处理？
Public Sub SeachFile(PathStr As String）Dim Fso As FileSystemObject
Dim Fol As Folder
Dim Fils As Files
Dim Fil As File
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Set Fol = Fso.GetFolder(PathStr)
  Set Fils = Fol.Files
   
   For Each Fil In Fol.Files
       debug.print Fil.Name 
   next
  
End Sub

Answer 2

'获取某目录下的所有文件的路径及名称：
Public Sub SeachFile(ByVal strPath As String)
    Dim Fso As Object
    Dim Fol As Object
    Dim Fil As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Fol = Fso.GetFolder(strPath)
    
    For Each Fil In Fol.Files
        Debug.Print Fil.Path   '打印路径及文件名
    Next
End SubPrivate Sub Command1_Click()
    SeachFile ("C:\Test\")
End Sub