技巧

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

VBA基础

返回文件路径

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

发布人:harsonli…-第十空间  
分享到：
点击次数：  更新时间：2003-12-20 23:08:01  【打印此页】  【关闭】
上一条：获取文件后缀  下一条：创建一个空数据库


相关文章

热门文章

热门产品