Public Function GetPath01(sFile As String) As String
' by anonymous, common bad solution
  Dim iPos As Long
  ' search last backslash
  For iPos = Len(sFile) To 1 Step -1
    If Mid$(sFile, iPos, 1) = "\" Then
      GetPath01 = Left$(sFile, iPos)
      Exit Function
    End If
  Next
  ' no backslash found
  GetPath01 = sFile
End Function

Public Function GetPath02(sFile As String) As String
' by Donald, donald@xbeat.net, 20001010
  Dim iPos As Long
  Dim iPosPrev As Long
  
  ' search last backslash
  Do
    iPosPrev = iPos
    iPos = InStr(iPos + 1, sFile, "\", vbBinaryCompare)
  Loop While iPos > 0
  
  If iPosPrev > 0 Then
    GetPath02 = Left$(sFile, iPosPrev)
  Else
    GetPath02 = sFile
  End If
  
End Function

Public Function GetPath03(sFile As String) As String
' by Peter Weighill, pweighill@btinternet.com, 20001020
' Only for VB6
  Dim iPos As Long
  
  ' search last backslash
  iPos = InStrRev(sFile, "\", -1, vbBinaryCompare)
  
  If iPos > 0 Then
    GetPath03 = Left$(sFile, iPos)
  Else
    GetPath03 = sFile
  End If
End Function

Public Function GetPath04(sFile As String) As String
' by Peter Weighill, pweighill@btinternet.com, 20001022
' Requires Reference to Microsoft Scripting Runtime
    Static fso As Scripting.FileSystemObject

    If fso Is Nothing Then
        Set fso = New Scripting.FileSystemObject
    End If
    GetPath04 = fso.GetParentFolderName(sFile)
End Function