VBA编程-获取文件名

在windows操作的时候，我们经常会用到“打开”、“另存为”或者“新建”等功能，这里展示一个可以获取全路径文件名的方法。其本质上是对字符串的分割。

'****************************************

'获取文件路径下的文件名

'参数为文件全路径

'****************************************

Function GetMyFileName(FPath As String) As String

Dim i As Integer, MyFileName As String

'反向查找字符串，确定第一个\的位置

For i = Len(FPath) To 1 Step -1

If InStr("\", Mid$(FPath, i, 1)) Then Exit For

Next

'获取反斜线右侧所有的字符

GetMyFileName = Mid$(FPath, i + 1, Len(FPath) - i)

End Function