这篇文章主要介绍VBS如何获取指定目录下的文件列表,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!VBS肿么获取某目录下的文件列表dim FileName,fs,foldernamefoldername&nb
这篇文章主要介绍VBS如何获取指定目录下的文件列表,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!
VBS肿么获取某目录下的文件列表
dim FileName,fs,foldernamefoldername = InputBox("请输入想要在哪个文件夹查找", "VBS查找文件")If foldername = "" Thenwscript.quitEnd IfSet fs = CreateObject("scripting.filesystemobject")digui (foldername)'调用递归函数进行查找msgbox FileName '结果显示'下面是递归查找函数Function digui(path)Set folder = fs.getfolder(path)Set subfolders = folder.subfoldersSet Files = folder.FilesFor Each i In FilesFileName=FileName & i.path & vbNewLine '找到则追加到变量FileName中NextFor Each j In subfoldersdigui (j.path) '递归查找子目录NextEnd Function
'目录列表与上述相似,稍加修改即可。
vbs获取目录下的文件和文件夹集合
Dim sFolder, sExt, messagesFolder = "F:\Programming\Applications\VBScript" Dim fs, oFolder, oFiles, oSubFoldersset fs = CreateObject("Scripting.FileSystemObject")set oFolder = fs.GetFolder(sFolder) '获取文件夹set oSubFolders = oFolder.SubFolders '获取子目录集合 for each folder in oSubFolders message = "文件夹:" & folder MsgBox messageNext set oFiles = oFolder.Files '获取文件集合for each file in oFiles sExt = fs.GetExtensionName(file) '获取文件扩展名 sExt = LCase(sExt) '转换成小写 message = "文件名:" & file.Name & ", 扩展名:" & sExt '获得文件名(含扩展名,不含路径)和扩展名 MsgBox messageNext
充,上面的folder.Name可以得到文件夹的名称(不含路径)
如:folder = F:\Programming\Applications\VBScript\dd
通过folder.Name可以得到"dd"
批量统计子目录文件数量
@echo off&setlocal enabledelayedexpansioncd.>dirfiles.txtfor /d %%a in (*.*) do (set n=0for /f %%B in ('dir /a-d /b /s "%%a"') do set /a n+=1echo %%a !n! >>dirfiles.txt)
以上是“VBS如何获取指定目录下的文件列表”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注编程网精选频道!
--结束END--
本文标题: VBS如何获取指定目录下的文件列表
本文链接: https://www.lsjlt.com/news/253021.html(转载时请注明来源链接)
有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
下载Word文档到电脑,方便收藏和打印~
2024-05-13
2024-05-12
2024-05-12
2024-05-12
2024-05-12
2024-05-12
2024-05-12
2024-05-12
2024-05-12
2024-05-12
回答
回答
回答
回答
回答
回答
回答
回答
回答
回答
0