主頁 > 知識庫 > VBS怎么獲取指定目錄下的文件列表

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

熱門標(biāo)簽:神行者美術(shù)館地圖標(biāo)注 東營快遞外呼系統(tǒng) 齊齊哈爾高德地圖標(biāo)注店 地圖標(biāo)注政府哪個部門管 百度地圖標(biāo)注點(diǎn)距離代碼 除了地圖標(biāo)注還有這種生意嗎 佛山真人電銷機(jī)器人廠家 哪里有便宜的地圖標(biāo)注公司 如何用機(jī)器人進(jìn)行電銷

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

dim FileName,fs,foldername
foldername = InputBox("請輸入想要在哪個文件夾查找", "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)計子目錄文件數(shù)量

@echo offsetlocal 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
)

具體的大家可以湊湊

標(biāo)簽:文山 銅川 邢臺 西安 鶴壁 四平 湖州

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《VBS怎么獲取指定目錄下的文件列表》,本文關(guān)鍵詞  VBS,怎么,獲取,指定,目,錄下,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《VBS怎么獲取指定目錄下的文件列表》相關(guān)的同類信息!
  • 本頁收集關(guān)于VBS怎么獲取指定目錄下的文件列表的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章