作者weibear (阿維)
站內EzHotKey
標題[請問] VBS 紀錄資料夾內所有的檔案
時間Fri May 23 00:20:29 2014
Dear 各位大大：
小得最近因為工作需求需要使用VBS 去記錄某個目標資料夾內所有的檔案資訊，
有參考了許多網路範例，最後拼湊出來的結果如下：
在For 迴圈的時候總是顯示不支援物件，但我卻不太清楚是發生了什麼問題???
麻煩各位大大幫忙解惑，感激不盡
Sub testA()
my讀取目錄下所有檔案的路徑及檔名 "C:\Users\wei\Desktop\test\"
End Sub
Sub my讀取目錄下所有檔案的路徑及檔名(ByVal my路徑 As String)
Dim myfso As Object
Dim fsoFile As Object
Dim fsoFolder As Object
Set myfso = CreateObject("Scripting.FileSystemObject")
Set fsoFolder = myfso.getFolder(my路徑)
Set objFSO = CreateObject("Scripting.FileSystemObject") ' new
Set objTXT = objFSO.CreateTextFile(my路徑 & "\FileList.csv") ' new
objTXT.WriteLine ("檔名,路徑,修改時間") ' new
For Each fsoFile In fsoFolder.Files
objTXT.WriteLine (fsoFile.Name & "," & fsoFile.Path & "," &
fsoFile.ModifyDate)
Next
Set myfso = Nothing
Set fsoFolder = Nothing
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 122.117.9.13
※ 文章網址: http://webptt.com/m.aspx?n=bbs/EzHotKey/M.1400775632.A.870.html