VBS如何获取指定目录下的文件列表-创新互联
这篇文章主要介绍VBS如何获取指定目录下的文件列表,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!
成都创新互联公司专业为企业提供临桂网站建设、临桂做网站、临桂网站设计、临桂网站制作等企业网站建设、网页设计与制作、临桂企业网站模板建站服务,10年临桂做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。VBS肿么获取某目录下的文件列表
dim FileName,fs,foldername foldername = InputBox("请输入想要在哪个文件夹查找", "VBS查找文件") If foldername = "" Then wscript.quit End If Set fs = CreateObject("scripting.filesystemobject") digui (foldername)'调用递归函数进行查找 msgbox FileName '结果显示 '下面是递归查找函数 Function digui(path) Set folder = fs.getfolder(path) Set subfolders = folder.subfolders Set Files = folder.Files For Each i In Files FileName=FileName & i.path & vbNewLine '找到则追加到变量FileName中 Next For Each j In subfolders digui (j.path) '递归查找子目录 Next End Function
'目录列表与上述相似,稍加修改即可。
vbs获取目录下的文件和文件夹集合
Dim sFolder, sExt, message sFolder = "F:\Programming\Applications\VBScript" Dim fs, oFolder, oFiles, oSubFolders set fs = CreateObject("Scripting.FileSystemObject") set oFolder = fs.GetFolder(sFolder) '获取文件夹 set oSubFolders = oFolder.SubFolders '获取子目录集合 for each folder in oSubFolders message = "文件夹:" & folder MsgBox message Next set oFiles = oFolder.Files '获取文件集合 for each file in oFiles sExt = fs.GetExtensionName(file) '获取文件扩展名 sExt = LCase(sExt) '转换成小写 message = "文件名:" & file.Name & ", 扩展名:" & sExt '获得文件名(含扩展名,不含路径)和扩展名 MsgBox message Next
充,上面的folder.Name可以得到文件夹的名称(不含路径)
如:folder = F:\Programming\Applications\VBScript\dd
通过folder.Name可以得到"dd"
批量统计子目录文件数量
@echo off&setlocal enabledelayedexpansion cd.>dirfiles.txt for /d %%a in (*.*) do ( set n=0 for /f %%B in ('dir /a-d /b /s "%%a"') do set /a n+=1 echo %%a !n! >>dirfiles.txt )
以上是“VBS如何获取指定目录下的文件列表”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注创新互联行业资讯频道!
网站题目:VBS如何获取指定目录下的文件列表-创新互联
转载源于:http://myzitong.com/article/dshijc.html