vbs遍历文件夹中的文件和文件夹，及其子文件

最新推荐文章于 2024-07-08 18:05:00 发布

原创最新推荐文章于 2024-07-08 18:05:00 发布 · 1.6w 阅读

10 ·

CC 4.0 BY-SA版权

本文介绍了一个使用VBScript编写的脚本，该脚本能遍历指定路径下的所有文件及子文件夹，并打印出每个文件和子文件夹的路径。此脚本适用于Windows环境，利用Scripting.FileSystemObject对象进行文件操作。

Function FilesTree(sPath)  
'遍历一个文件夹下的所有文件夹文件夹  
    Set oFso = CreateObject("Scripting.FileSystemObject")  
    Set oFolder = oFso.GetFolder(sPath)  
    Set oSubFolders = oFolder.SubFolders  
      
    Set oFiles = oFolder.Files  
    For Each oFile In oFiles  
        WScript.Echo oFile.Path  
        'oFile.Delete  
    Next  
      
    For Each oSubFolder In oSubFolders  
        WScript.Echo oSubFolder.Path  
        'oSubFolder.Delete  
        FilesTree(oSubFolder.Path)'递归  
    Next  
      
    Set oFolder = Nothing  
    Set oSubFolders = Nothing  
    Set oFso = Nothing  
End Function  
  
FilesTree("F:\deltest\deltest") '遍历