Sub xxx()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("c:\")' "c:\"换成你的路径
Set fc = f.Files
tmp = "文件名" & vbTab & "创建时间" & vbTab & "修改时间" & vbTab & "访问时间" & vbTab & "文件类型" & vbTab & "文件类型" & vbLf
For Each file In fc
tmp = tmp & file.Name & vbTab & file.DateCreated & vbTab & file.DateLastModified & vbTab & file.DateLastAccessed & vbTab & file.Size / 1024 & "KB" & vbTab & file.Type & vbLf
Next
Set fc = f.Subfolders
For Each file In fc
tmp = tmp & file.Name & vbTab & file.DateCreated & vbTab & file.DateLastModified & vbTab & file.DateLastAccessed & vbTab & file.Size / 1024 & "KB" & vbTab & file.Type & vbLf
Next
MsgBox tmp
End Sub
