除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請(qǐng)保留鏈接: http://www./cat1/279.html，VBA交流群273624828。

今天看到有人問(wèn)怎么查看一個(gè)文件夾中最后修改的文件，文件的最后修改時(shí)間是文件的一個(gè)屬性，那本節(jié)就來(lái)看看怎么利用VBA來(lái)查看文件和文件夾的各種屬性。這里我們用的是FileSystemObject對(duì)象。假設(shè)你的D盤下有一個(gè)名稱為WWW的文件夾，那來(lái)看下怎么查看這個(gè)文件夾的大小 、最后修改時(shí)間等屬性，看代碼：

Sub 文件夾屬性()
Dim fso As Object, f
Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.GetFolder("d:\WWW")
ActiveCell.Offset(0, 0) = "文件類型為:" & f.Attributes
ActiveCell.Offset(1, 0) = "文件夾名稱為:" & f.Name
ActiveCell.Offset(2, 0) = "文件夾短名稱為:" & f.ShortName
ActiveCell.Offset(3, 0) = "文件夾類型為:" & f.Type
ActiveCell.Offset(4, 0) = "文件夾所在驅(qū)動(dòng)器名為:" & f.Drive
ActiveCell.Offset(5, 0) = "文件夾是否為短名稱:" & f.IsRootFolder
ActiveCell.Offset(6, 0) = "上層文件夾為:" & f.ParentFolder
ActiveCell.Offset(7, 0) = "文件夾路徑為:" & f.Path
ActiveCell.Offset(8, 0) = "文件夾短名稱路徑為:" & f.ShortPath
ActiveCell.Offset(9, 0) = "文件夾大小為:" & Int(f.Size / 1024 ^ 2) & "M"
ActiveCell.Offset(10, 0) = "文件夾創(chuàng)建時(shí)間為:" & f.DateCreated
ActiveCell.Offset(11, 0) = "文件夾最后一次修改時(shí)間為:" & f.DateLastModified
ActiveCell.Offset(12, 0) = "文件夾最后一次訪問(wèn)時(shí)間為:" & f.DateLastAccessed
End Sub

DateLastModified就是文件最后修改時(shí)間，Size是指大小，單位是B，換算成M需要除以1024的平方。

下面再看關(guān)于文件的操作

Sub 文件屬性()
Dim fso As Object, f
Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.GetFile("d:\test.txt")
ActiveCell.Offset(0, 0) = "文件屬性為:" & f.Attributes
ActiveCell.Offset(1, 0) = "文件名稱為:" & f.Name
ActiveCell.Offset(2, 0) = "文件短名稱為:" & f.ShortName
ActiveCell.Offset(3, 0) = "文件類型為:" & f.Type
ActiveCell.Offset(4, 0) = "文件所在驅(qū)動(dòng)器名為:" & f.Drive
ActiveCell.Offset(5, 0) = "上層文件夾為:" & f.ParentFolder
ActiveCell.Offset(6, 0) = "文件路徑為:" & f.Path
ActiveCell.Offset(7, 0) = "文件短名稱路徑為:" & f.ShortPath
ActiveCell.Offset(8, 0) = "文件大小為:" & Int(f.Size / 1024) & "K"
ActiveCell.Offset(9, 0) = "文件創(chuàng)建時(shí)間為:" & f.DateCreated
ActiveCell.Offset(10, 0) = "文件最后一次修改時(shí)間為:" & f.DateLastModified
ActiveCell.Offset(11, 0) = "文件最后一次訪問(wèn)時(shí)間為:" & f.DateLastAccessed

End Sub

文件的屬性基本和文件夾一樣，不再贅述，有了上面的演示不管你想要文件的哪種屬性都可以信手拈來(lái)了。