根据全路径的文件名 获取 文件名（不带后缀），文件名（带后缀），当前路径名，全路径文件下的路径

刚好用到文件 目录这一块，查了很多资料，各种代码都有，也到处拷贝了很多代码测试，感觉很多太过于复杂，好多都用到API 函数，自己整理了一份，浅显易懂。

留着以后备用

 

'根据全路径的文件名  获取 文件名（不带后缀），文件名（带后缀），当前路径名，全路径文件下的路径

Public Function GetPathFromFile(strname As String, ByRef nameStr As String, Optional ByVal typeNum As Integer = 1) As String
    Dim aa, dd, ss, xx As String
    Dim bb, cc As Integer
    Dim yy As String
    'strname =D:\Data\1#\01.mdb
    
    bb = InStrRev(strname, "\")
    cc = Len(strname)
    dd = Right(strname, cc - bb)  '01.mdb
    xx = dd

    yy = Left(dd, Len(dd) - 4)  '01

    ss = Left(strname, bb - 1)   '去掉文件名  D:\Data\1#
    
    fullPath = ss
    
    bb = InStrRev(ss, "\")
    cc = Len(ss)
    dd = Right(ss, cc - bb)     '1#

    GetPathFromFile = dd
    
    Select Case typeNum:
    ' 获取全路径文件下的文件名  （带后缀)
    Case 1:
        nameStr = xx         '01.mdb
        
    ' 获取全路径文件下的文件名  （不带后缀）
    Case 2:
        nameStr = yy           '01
        
        
    ' 获取全路径文件下的路径   （去掉文件名）
    Case 3:
        nameStr = ss             ' D:\Data\1#
        
    ' 获取全路径文件下的当前路径名
    Case 4:
        nameStr = dd             '1#
        '
    
    End Select