作者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/cn.aspx?n=bbs/EzHotKey/M.1400775632.A.870.html