從全路徑文件名中穫?cè)∥募ú缓窂剑?/h1>

2019-12-08 08:00:00

zstmtony

原創(chuàng)

8288

從全路徑文件名中穫?cè)∥募ú缓窂剑?/p>

方法一：

Public Function gf_GetFileName(strFullPath As String) As String
 
    Dim splitList As Variant
    splitList = VBA.Split(strFullPath, "")
    gf_GetFileName = splitList(UBound(splitList, 1))
    
End Function

方法二：

'intType=0 穫?cè)÷窂?
'intType=1 穫?cè)∥募?
'intType=2 穫?cè)U(kuò)展名
 

Public Function SplitstrFullPath(strFullPath As String, intType As Integer) As String

Dim intSplitPos As Integer, intDotPos As Integer

intSplitPos = InStrRev(strFullPath, "/")

intDotPos = InStrRev(strFullPath, ".")

Select Case intType

Case 0

 SplitstrFullPath = Left(strFullPath, intSplitPos - 1)

Case 1

 If intDotPos = 0 Then intDotPos = Len(strFullPath) + 1

 SplitstrFullPath = Mid(strFullPath, intSplitPos + 1, intDotPos - intSplitPos - 1)

Case 2

 If intDotPos = 0 Then intDotPos = Len(strFullPath)

 SplitstrFullPath = Mid(strFullPath, intDotPos + 1)

Case Else

 Err.Raise vbObjectError + 1, "拆分路徑函數(shù)", "無效的蔘數(shù)!"
End Select

End Function