蝙蝠岛资源网 Design By www.hbtsch.com
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文件列表
蝙蝠岛资源网 Design By www.hbtsch.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com
暂无VBS怎么获取指定目录下的文件列表的评论...
更新日志
2024年05月17日
2024年05月17日
- 高胜美《经典金选》1991-1994 4CD[WAV整轨][1.9G]
- 【迷幻电音】AstralWaves-2023-Singles,RemixesandRaritiesII(FLAC)
- 中唱唱片群星《好歌珍藏-游子情深》2CDWAV
- 张国荣.2011-极品天碟LPCD45II(雨果版)【环球】【WAV+CUE】
- 张学友《醒着做梦》[DFF][1.1G]
- 刘惜君 《如我》[WAV分轨][403M]
- 白玛多吉《梦》限量1:1母盘直刻[低速原抓WAV+CUE][508M]
- 魏金栋-金歌新曲-梦里全是桂花香2CD[天凡之音][WAV+CUE]
- 鲛岛有美子-樱花赋HQCD[天龙][WAV+CUE]
- [In-Akustik7506]ReferenceSoundEdition-GreatWomenOfSong(2014)HQCD[WAV+CUE]
- 日本EMI超级名盘TOGE-11035-36BeethovenFidelio-Furtwngler
- 宝丽金50周年2010《古典篇》3CD限定盘[低速原抓WAV+CUE]
- 华纳群星.1992-永远新一天华纳15周年金钻群星演唱会2CD【华纳】【WAV+CUE】
- 原声《功夫熊猫4 OST》[FLAC][545M]
- 陈奕迅《酝酿》[WAV分轨][502M]