Visual Basic > Other sample source codes

 Formating a path to always end with a backslash

Formating a path to always end with a backslash The following function is useful for adding the trailing backslash to a path and for combining lots of paths sub paths into a single path. 'Purpose : Ensures a path always finishes with a trailing backslash 'Inputs : sPath The path to complete ' [avPaths] Optional paths to append to sPath 'Outputs : Returns a path with a trailing backslash Function FormatPath(sPath As String, ParamArray avPaths() As Variant) As String Dim vThisPath As Variant FormatPath = sPath If Right$(FormatPath, 1) <> "\" Then 'Add backslash FormatPath = FormatPath & "\" End If 'Append with a sub paths For Each vThisPath In avPaths If Len(vThisPath) Then If Left(vThisPath, 1) = "\" Then FormatPath = FormatPath & Mid$(vThisPath, 2) Else FormatPath = FormatPath & vThisPath End If End If Next If Right$(FormatPath, 1) <> "\" Then 'Add backslash FormatPath = FormatPath & "\" End If End Function



Privacy Policy | Link to Us | Links