VBS 遍历文件夹下所有Excel文件

最新推荐文章于 2022-04-09 08:50:56 发布

转载最新推荐文章于 2022-04-09 08:50:56 发布 · 534 阅读

本文介绍了一个使用VBScript编写的脚本，该脚本可以遍历指定路径下的所有文件，并筛选出Excel（.xls）文件，显示文件路径并统计总数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

关注博主即可阅读全文