Question

VB或EXCEL如何提取文件夹中每个文件的创建日期和修改日期；有没有方法能够提取目标文件夹下面的子文件夹名

Answer 1

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