[已解决]已有路径怎样取文件名??

萧扬

如已有文件路径如:  c:\program\a\b.mdb

怎样用代码写获取文件名b.mdb  和路径  c:\program\a

[ 本帖最后由 cuxun 于 2007-12-22 07:13 编辑 ]

andymark

参考split的用法
也可以参考下面的例子,里面有从一个文件夹读取所有文件名的方法
http://www.office-cn.net/forum.p ... ghlight=%2Bandymark

Victor_Duane

Function uf_GetFileName(strFileAddress As String, Optional filename As Integer = -1) As String
'===============================================================================
'-函数名称:         uf_GetFileName
'-功能描述:         从文件的地址中取出文件名
'-输入参数说明:     参数1:strFileAddress 文件的地址
'                   参数2：filename 取出文件名还是地址，-1为文件名，0为文件地址
'-返回参数说明:     返回文件名
'-使用语法示例:     uf_GetFileName("c:\myfile\a.mdb")
'-参考:
'-使用注意:
'-兼容性:           2000,XP,2003
'-作者:             Victor Duane
'-更新日期：        2007-12-13
'===============================================================================
If Len(strFileAddress) > 0 Then
    Dim X As Integer
    X = InStrRev(strFileAddress, "\", -1)
    Debug.Print X
    Select Case filename
    Case -1
        uf_GetFileName = Right$(strFileAddress, Len(strFileAddress) - X)
    Case 0
        uf_GetFileName = Left$(strFileAddress, X)
    End Select
Else
    uf_GetFileName = "<Null>"
End If
End Function

andymark

用SPLIT的方法

Public Function GetFileName(FullName As String) As String
    Dim vArr As Variant
    Dim astr(10) As String
    vArr = astr
    vArr = Split(FullName, "\")
    GetFileName = vArr(UBound(vArr))

End Function

Victor_Duane

呵呵，方法多多

我用了instrrev+left(right)

tmtony

哇, 太多了