VBS 遍歷文件夾下所有Excel文件

Function FilesTree(sPath) 
  Dim i : i=0
  on error resume Next
  Set oFso = CreateObject("Scripting.FileSystemObject")  
  Set oFolder = oFso.GetFolder(sPath)       
  Set oFiles = oFolder.Files  
  For Each oFile In oFiles
  　　If Right(oFile.Path,3)="xls" Then
     　　Msgbox oFile.Path 
     　　i=i+1
  　　End If
  Next 
  Msgbox "您的"&sPath&"目錄下，一共存在"&i&"個Excle文件"
  Wscript.Quit
End Function