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