本篇文章給大家分享的是有關VBS中怎么獲取指定目錄下的文件列表，小編覺得挺實用的，因此分享給大家學習，希望大家閱讀完這篇文章后可以有所收獲，話不多說，跟著小編一起來看看吧。

10年的南部網(wǎng)站建設經(jīng)驗，針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務，響應快，48小時及時工作處理。網(wǎng)絡營銷推廣的優(yōu)勢是能夠根據(jù)用戶設備顯示端的尺寸不同，自動調(diào)整南部建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設計，從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)建站從事“南部網(wǎng)站設計”,“南部網(wǎng)站推廣”以來，每個客戶項目都認真落實執(zhí)行。

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

dim FileName,fs,foldernamefoldername = InputBox("請輸入想要在哪個文件夾查找", "VBS查找文件")If foldername = "" Thenwscript.quitEnd IfSet fs = CreateObject("scripting.filesystemobject")digui (foldername)'調(diào)用遞歸函數(shù)進行查找msgbox FileName '結果顯示'下面是遞歸查找函數(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)  '獲取文件擴展名  sExt = LCase(sExt)         '轉(zhuǎn)換成小寫  message = "文件名：" & file.Name & ", 擴展名：" & sExt '獲得文件名(含擴展名,不含路徑)和擴展名  MsgBox messageNext

充，上面的folder.Name可以得到文件夾的名稱(不含路徑)如：folder = F:\Programming\Applications\VBScript\dd通過folder.Name可以得到"dd"

批量統(tǒng)計子目錄文件數(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中怎么獲取指定目錄下的文件列表，小編相信有部分知識點可能是我們?nèi)粘９ぷ鲿姷交蛴玫降?。希望你能通過這篇文章學到更多知識。更多詳情敬請關注創(chuàng)新互聯(lián)行業(yè)資訊頻道。

網(wǎng)站名稱：VBS中怎么獲取指定目錄下的文件列表
文章轉(zhuǎn)載：http://jinyejixie.com/article0/gpecio.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供微信公眾號、關鍵詞優(yōu)化、App設計、ChatGPT、標簽優(yōu)化、做網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)