还是遍历文件

是不是应该修改下面的语句？

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