CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to remove backslash from the directory
Option Explicit
 
Public Function RemoveBackslash(ByVal sFolder As String) As String
    Dim I As Integer
    I = Len(sFolder)
    If I <> 0 Then
        If Right$(sFolder, 1) = "\" Then
            RemoveBackslash = Left$(sFolder, I - 1)
        Else
            RemoveBackslash = sFolder
        End If
    End If
End Function