VBS如何獲取指定目錄下的文件列表-創(chuàng)新互聯(lián)

這篇文章主要介紹VBS如何獲取指定目錄下的文件列表，文中介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們一定要看完！

成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供臨桂網(wǎng)站建設(shè)、臨桂做網(wǎng)站、臨桂網(wǎng)站設(shè)計(jì)、臨桂網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、臨桂企業(yè)網(wǎng)站模板建站服務(wù)，10年臨桂做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

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

dim FileName,fs,foldername
foldername = InputBox("請(qǐng)輸入想要在哪個(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
)

以上是“VBS如何獲取指定目錄下的文件列表”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對(duì)大家有幫助，更多相關(guān)知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

網(wǎng)頁標(biāo)題：VBS如何獲取指定目錄下的文件列表-創(chuàng)新互聯(lián)
本文網(wǎng)址：http://muchs.cn/article22/dshijc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊(cè)、App設(shè)計(jì)、定制開發(fā)、ChatGPT、做網(wǎng)站、網(wǎng)站排名

廣告

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