FSO对象的GetFile与GetFileName方法
【知识点】
GetFile 方法
返回与指定路径中的文件对应的**file** 对象。
语法
对象。GetFile(filespec)
注解
如果指定的文件不存在，则将发生错误
【知识点】
File 对象
提供对某文件的所有属性的访问权。
注解
以下代码阐释如何获得File 对象以及如何查看其属性之一
Sub t_GetFile()
Dim t
t= ThisWorkbook.Path & "" & ThisWorkbook.Name
ShowFileAccessInfo (t)
End Sub
'自定义函数
Sub ShowFileAccessInfo(filespec)
Dim fs, d, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s= UCase(f.Path) & vbCrLf
s= s & "-----------------------------" & vbCrLf
s= s & "1.创建于: " & f.DateCreated &vbCrLf
s= s & "2.上次访问于◇ " & f.DateLastAccessed& vbCrLf
s= s & "3.上次修改于◇ " &f.DateLastModified & vbCrLf
s= s & "4.文件或文件夹所在的驱动器的驱动器号◇" &f.Drive & vbCrLf
s= s & "5.文件的名称◇" & f.Name &vbCrLf
s= s & "6.文件的父文件夹的folder对象◇" & f.ParentFolder & vbCrLf
s= s & "7.文件的路径◇" & f.Path &vbCrLf
s= s & "8.文件的大小◇" & f.Size &vbCrLf
s= s & "9.文件的类型◇" & f.Type
MsgBox s, 0, "File Access Info"
End Sub
效果图
【知识点】
GetFileName 方法
返回指定路径中不属于驱动器规格的最后一个组件。
语法
对象。GetFileName(pathspec)
GetFileName 方法语法包含以下部分：
注解
如果 pathspec 未以命名组件结束，则 GetFileName 方法返回零长度字符串 ("")。
Sub t_GetFileName()
Dim fs As Object, d, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
s= fs.GetFileName("F:家Excel学习yhd-Excelyhd-Excel-VBAyhd-ExcelVBA-Fso对象GetFileName.xlsm")
MsgBox s
‘与这个一样
MsgBox ThisWorkbook.Name
End Sub
效果图
======哆哆学习中=====
