VBS中怎么获取指定目录下的文件列表-创新互联

本篇文章给大家分享的是有关VBS中怎么获取指定目录下的文件列表,小编觉得挺实用的,因此分享给大家学习,希望大家阅读完这篇文章后可以有所收获,话不多说,跟着小编一起来看看吧。

创新互联主要业务有网站营销策划、网站设计制作、做网站、微信公众号开发、成都小程序开发H5高端网站建设、程序开发等业务。一次合作终身朋友,是我们奉行的宗旨;我们不仅仅把客户当客户,还把客户视为我们的合作伙伴,在开展业务的过程中,公司还积累了丰富的行业经验、全网营销推广资源和合作伙伴关系资源,并逐渐建立起规范的客户服务和保障体系。 

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中怎么获取指定目录下的文件列表,小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注创新互联行业资讯频道。


新闻标题:VBS中怎么获取指定目录下的文件列表-创新互联
转载来于:http://bzwzjz.com/article/dpcish.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 成都网站建设公司 成都网站建设 成都网站设计 教育网站设计方案 重庆企业网站建设 四川成都网站设计 重庆网站建设 成都网站建设 成都商城网站建设 H5网站制作 成都网站建设 营销网站建设 定制网站建设多少钱 重庆网站制作 网站建设方案 成都网站建设公司 达州网站设计 营销型网站建设 成都网站制作 公司网站建设 成都网站建设 专业网站设计