Visual Basic > Files Directories Drives

Removing A FileName From A Path

Removing A FileName From A Path

Public Function StripFileName(FullPath As String) As String
    'Dimension some variables.
    Dim TMP As String
    Dim Count As Long
    
    'Do it!
    For Count = Len(FullPath) To 3 Step -1
        If Mid$(FullPath, Count, 1) = "\" Or _
         Mid$(FullPath, Count, 1) = "/" Then
            StripFileName = Left$(FullPath, Count)
            Exit Function
        End If
    Next Count
End Function