Extract filename ad directory from path 2

[JonathonC]

I have a path (eg. "C:\My Documents\file.txt&quot and I want to know:
The filename (in this case "file.txt&quot
The directory (in this case "C:\My Documents\&quot

How would I do this? It's incredible to think that before computers were invented we had to mess things up ourselves!

 

[strongm]

Here are two examples:
[tt]
Private Sub PathBreakVB(strPath)
Dim PathBreak As Long

PathBreak = InStrRev(strPath, "\&quot
Debug.Print Mid(strPath, 1, PathBreak)
Debug.Print Right(strPath, Len(strPath) - PathBreak)
End Sub

' Requires that you add a reference to the
' Microsoft Scripting Runtime
Private Sub PathBreakFSO(strPath)
Dim fso As New FileSystemObject

Debug.Print fso.GetParentFolderName(strPath) & "\"
Debug.Print fso.GetFileName(strPath)
End Sub

 

[Supra]

Here you go I just whipped these up

Private Function DirFromPath(Path As String)
Dim Pos As Long
    Pos = InStrRev(Path, "\")
    DirFromPath = Left(Path, Pos)
End Function

Private Function FileFromPath(Path As String)
Dim Pos As Long
    Pos = InStrRev(Path, "\")
    FileFromPath = Right(Path, Len(Path) - Pos)
End Function

Private Sub Form_Load()
Dim FullPath As String
Dim FileName As String
Dim FileDir As String
    FullPath = "C:\My Documents\file.txt"
    FileName = FileFromPath(FullPath)
    FileDir = DirFromPath(FullPath)
    MsgBox "Full Path: " & FullPath & vbCrLf & _
           "File Name: " & FileName & vbCrLf & _
           "Directory: " & FileDir
End Sub

 

[JonathonC]

Thanks, it's nice to know that whenever I get stuck i've always got Tek-Tips to help me. It's incredible to think that before computers were invented we had to mess things up ourselves!