Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

返回文件路径

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

Function GetFilePath(strFileName) As String

'返回路径名称
Dim I As Integer

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

GetFilePath = strFileName

End Function

收藏分享邀请

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

返回文件路径

最新评论

相关分类