根据全路径的文件名 获取 文件名(不带后缀),文件名(带后缀),当前路径名,全路径文件下的路径

刚好用到文件 目录这一块,查了很多资料,各种代码都有,也到处拷贝了很多代码测试,感觉很多太过于复杂,好多都用到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

  

posted @ 2020-12-10 16:53  笑笑小白  阅读(680)  评论(0编辑  收藏  举报