在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
领取专属 10元无门槛券
私享最新 技术干货