VBS中怎么獲取指定目錄下的文件列表

本篇文章給大家分享的是有關(guān)VBS中怎么獲取指定目錄下的文件列表，小編覺(jué)得挺實(shí)用的，因此分享給大家學(xué)習，希望大家閱讀完這篇文章后可以有所收獲，話(huà)不多說(shuō)，跟著(zhù)小編一起來(lái)看看吧。

VBS腫么獲取某目錄下的文件列表

dim FileName,fs,foldernamefoldername = InputBox("請輸入想要在哪個(gè)文件夾查找", "VBS查找文件")If foldername = "" Thenwscript.quitEnd IfSet fs = CreateObject("scripting.filesystemobject")digui (foldername)'調用遞歸函數進(jìn)行查找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)         '轉換成小寫(xiě)  message = "文件名：" & file.Name & ", 擴展名：" & sExt '獲得文件名(含擴展名,不含路徑)和擴展名  MsgBox messageNext

充，上面的folder.Name可以得到文件夾的名稱(chēng)(不含路徑)如：folder = F:\Programming\Applications\VBScript\dd通過(guò)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)