FSO之文件及文件夹操作及获取相关属性等

liulang0808 · 发表于 2014-12-27 13:08

2.11 获取文件夹有关信息
Sub 按钮1_Click()
Application.ScreenUpdating = False

Dim sReturn As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.GetFolder(ThisWorkbook.Path & "\")
sReturn = "文件夹属性： " & folder1.Attributes & vbCrLf
'获取最近一次访问的时间
sReturn = sReturn & "创建时间： " & folder1.Datecreated & vbCrLf
sReturn = sReturn & "最后访问时间： is " & folder1.DateLastAccessed & vbCrLf
'获取最后一次修改的时间
sReturn = sReturn & "最后修改时间： " & folder1.DateLastModified & vbCrLf
'获取文件夹的大小
sReturn = sReturn & "文件夹大小： " & FormatNumber(folder1.Size / 1024, 0)
sReturn = sReturn & "Kb" & vbCrLf
'判断文件或文件夹类型
sReturn = sReturn & "类型为： " & folder1.Type & vbCrLf
MsgBox sReturn
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2014-12-27 14:23

不带附件的fso文件及文件夹方法属性的汇总。。。。

远征之辉 · 发表于 2016-8-3 13:23

学习了，非常感谢啦！

feisail · 发表于 2016-12-27 10:14

正学习FSO的使用方法。谢谢大师的总结。

xjtytzyxgs · 发表于 2016-12-27 12:36

留底学习，谢谢，辛苦了

sogo777 · 发表于 2017-3-15 09:58

您好，请问这个
fso.getfolder(ThisWorkbook.Path).对象如果再加下一层目录应该怎么表述我这周才开始学请勿见怪

liulang0808 · 发表于 2017-3-15 10:07

sogo777 发表于 2017-3-15 09:58
您好，请问这个
fso.getfolder(ThisWorkbook.Path).对象如果再加下一层目录应该怎么表述我这周才开始学 ...

fso.getfolder(ThisWorkbook.Path).subfolders

sogo777 · 发表于 2017-3-15 10:16

liulang0808 发表于 2017-3-15 10:07
fso.getfolder(ThisWorkbook.Path).subfolders

For Each f In fso.getfolder(ThisWorkbook.Path & "\总表\").Files
老师，我是直接这样改的没问题可以运行正常

liulang0808 · 发表于 2017-3-15 10:25

sogo777 发表于 2017-3-15 10:16
For Each f In fso.getfolder(ThisWorkbook.Path & "\总表\").Files
老师，我是直接这样改的没问题可 ...

这样可以的，如果不知道有多少个子文件夹，就用subfolder这个了

cbm · 发表于 2017-3-15 13:49

感谢这么好的学习资料。

		自动登录	找回密码
密码			免费注册

[分享] FSO之文件及文件夹操作及获取相关属性等

评分