您好,登錄后才能下訂單哦!
本篇文章給大家分享的是有關(guān)VBS中怎么獲取指定目錄下的文件列表,小編覺(jué)得挺實(shí)用的,因此分享給大家學(xué)習(xí),希望大家閱讀完這篇文章后可以有所收獲,話不多說(shuō),跟著小編一起來(lái)看看吧。
VBS腫么獲取某目錄下的文件列表
dim FileName,fs,foldernamefoldername = InputBox("請(qǐng)輸入想要在哪個(gè)文件夾查找", "VBS查找文件")If foldername = "" Thenwscript.quitEnd IfSet 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.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) '獲取文件擴(kuò)展名 sExt = LCase(sExt) '轉(zhuǎn)換成小寫(xiě) message = "文件名:" & file.Name & ", 擴(kuò)展名:" & sExt '獲得文件名(含擴(kuò)展名,不含路徑)和擴(kuò)展名 MsgBox messageNext
充,上面的folder.Name可以得到文件夾的名稱(不含路徑)如:folder = F:\Programming\Applications\VBScript\dd通過(guò)folder.Name可以得到"dd"
批量統(tǒng)計(jì)子目錄文件數(shù)量
@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中怎么獲取指定目錄下的文件列表,小編相信有部分知識(shí)點(diǎn)可能是我們?nèi)粘9ぷ鲿?huì)見(jiàn)到或用到的。希望你能通過(guò)這篇文章學(xué)到更多知識(shí)。更多詳情敬請(qǐng)關(guān)注億速云行業(yè)資訊頻道。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。