VBS怎么獲取指定目錄下的文件列表
發(fā)布日期:2021-12-26 00:50 | 文章來源:站長之家
VBS腫么獲取某目錄下的文件列表
dim FileName,fs,foldername foldername = InputBox("請輸入想要在哪個(gè)文件夾查找", "VBS查找文件") If foldername = "" Then wscript.quit End If Set fs = CreateObject("scripting.filesystemobject") digui (foldername)'調(diào)用遞歸函數(shù)進(jìn)行查找 msgbox FileName '結(jié)果顯示 '下面是遞歸查找函數(shù) 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) '獲取文件擴(kuò)展名 sExt = LCase(sExt)'轉(zhuǎn)換成小寫 message = "文件名:" & file.Name & ", 擴(kuò)展名:" & sExt '獲得文件名(含擴(kuò)展名,不含路徑)和擴(kuò)展名 MsgBox message Next
充,上面的folder.Name可以得到文件夾的名稱(不含路徑)
如:folder = F:\Programming\Applications\VBScript\dd
通過folder.Name可以得到"dd"
批量統(tǒng)計(jì)子目錄文件數(shù)量
@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 )
具體的大家可以湊湊
版權(quán)聲明:本站文章來源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有,歡迎引用、轉(zhuǎn)載,請保持原文完整并注明來源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站,禁止在非www.sddonglingsh.com所屬的服務(wù)器上建立鏡像,否則將依法追究法律責(zé)任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來,僅供學(xué)習(xí)參考,不代表本站立場,如有內(nèi)容涉嫌侵權(quán),請聯(lián)系alex-e#qq.com處理。
相關(guān)文章