vbs 遍历一个文件夹

转载

zhangxinglong12 2023-05-15 00:44:21 博主文章分类：vbs脚本

Function FilesTree(sPath)    
 '遍历一个文件夹下的所有文件夹文件夹    
     Set oFso = CreateObject("Scripting.FileSystemObject")    '如f:\
     Set oFolder = oFso.GetFolder(sPath)    
     Set oSubFolders = oFolder.SubFolders    
         
     Set oFiles = oFolder.Files    
     For Each oFile In oFiles    
         'WScript.Echo oFile.Path    
 ' writetofile(oFile.Path) 
         'oFile.Delete    
     Next   
         
     For Each oSubFolder In oSubFolders    
         'WScript.Echo oSubFolder.Path    
         'oSubFolder.Delete    
 writetofile(oSubFolder.Path) 
         FilesTree(oSubFolder.Path)'递归    
     Next   
         
     Set oFolder = Nothing   
     Set oSubFolders = Nothing   
     Set oFso = Nothing   
 End Function   
    
 FilesTree(inputbox("Input Parent Folder:")) '遍历   
 msgbox("ok") function writetofile(s) 
 Set oFso = CreateObject("Scripting.FileSystemObject")    
 if oFso.FileExists("folder.txt") then else 
 set ts=oFso.createtextfile("folder.txt",true) 
 ts.close 
 end if Set fs=oFso.OpenTextFile("folder.txt",8,True) 
 fs.WriteLine(s) 
 fs.close end function