在路径中返回文件名

1970-1-1 08:00| 发布者: harsonliao| 查看: 1770| 评论: 0

Function GetFileName(strFileName As Variant) As String
'返回文件名
Dim I As Integer

For I = Len(strFileName) To 1 Step -1
If Mid$(strFileName, I, 1) = "\" Then
GetFileName = Mid$(strFileName, I + 1)
Exit Function
End If
Next I

GetFileName = strFileName

End Function

'strFileName为包含路径的文件名
调用：
Msgbox "文件名为 " & GetFileName("C"\myFolder\txt1")

帐号		自动登录	找回密码
密码			注册

相关分类