VBA自定义函数：获取路径、文件名、扩展名[20110228]

'ResultFlag=0 获取路径

'ResultFlag=1 获取文件名

'ResultFlag=2 获取扩展名

 

Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String

Dim SplitPos As Integer, DotPos As Integer

SplitPos = InStrRev(FullPath, "/")

DotPos = InStrRev(FullPath, ".")

Select Case ResultFlag

Case 0

   SplitPath = Left(FullPath, SplitPos - 1)

Case 1

   If DotPos = 0 Then DotPos = Len(FullPath) + 1

   SplitPath = Mid(FullPath, SplitPos + 1, DotPos - SplitPos - 1)

Case 2

   If DotPos = 0 Then DotPos = Len(FullPath)

   SplitPath = Mid(FullPath, DotPos + 1)

Case Else

   Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!"
End Select

End Function