FSO对象的GetFile与GetFileName方法

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-Excel\yhd-Excel-VBA\yhd-ExcelVBA-Fso对象\GetFileName.xlsm")

MsgBox s

‘与这个一样

MsgBox ThisWorkbook.Name

End Sub

效果图

======哆哆学习中=====