VBS肿么获取某目录下的文件列表

1. dim FileName,fs,foldername
   
2. foldername = InputBox("请输入想要在哪个文件夹查找", "VBS查找文件")
   
3. If foldername = "" Then
   
4. wscript.quit
   
5. End If
   
6. Set fs = CreateObject("scripting.filesystemobject")
   
7. digui (foldername)'调用递归函数进行查找
   
8. msgbox FileName '结果显示
   
9. 
   
10. '下面是递归查找函数
    
11. Function digui(path)
    
12. Set folder = fs.getfolder(path)
    
13. Set subfolders = folder.subfolders
    
14. Set Files = folder.Files
    
15. For Each i In Files
    
16. FileName=FileName & i.path & vbNewLine '找到则追加到变量FileName中
    
17. Next
    
18. For Each j In subfolders
    
19. digui (j.path) '递归查找子目录
    
20. Next
    
21. End Function

复制代码

'目录列表与上述相似，稍加修改即可。
vbs获取目录下的文件和文件夹集合

1. Dim sFolder, sExt, message
   
2. sFolder = "F:\Programming\Applications\VBScript"
   
3. 
   
4. Dim fs, oFolder, oFiles, oSubFolders
   
5. set fs = CreateObject("Scripting.FileSystemObject")
   
6. set oFolder = fs.GetFolder(sFolder)   '获取文件夹
   
7. set oSubFolders = oFolder.SubFolders  '获取子目录集合
   
8. 
   
9. for each folder in oSubFolders
   
10.   message = "文件夹：" & folder
    
11.   MsgBox message
    
12. Next
    
13. 
    
14. set oFiles = oFolder.Files       '获取文件集合
    
15. for each file in oFiles
    
16.   sExt = fs.GetExtensionName(file)  '获取文件扩展名
    
17.   sExt = LCase(sExt)         '转换成小写
    
18.   message = "文件名：" & file.Name & ", 扩展名：" & sExt '获得文件名(含扩展名,不含路径)和扩展名
    
19.   MsgBox message
    
20. Next

复制代码

充，上面的folder.Name可以得到文件夹的名称(不含路径)
如：folder = F:\Programming\Applications\VBScript\dd
通过folder.Name可以得到"dd"
批量统计子目录文件数量

1. @echo off&setlocal enabledelayedexpansion
   
2. cd.>dirfiles.txt
   
3. for /d %%a in (*.*) do (
   
4. set n=0
   
5. for /f %%B in ('dir /a-d /b /s "%%a"') do set /a n+=1
   
6. echo %%a  !n! >>dirfiles.txt
   
7. )

复制代码

具体的大家可以凑凑

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！