Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Merge path and filename to get valid full path name


Function  MergePathData(thePath As String , theFileName As String ) As String

Select Case Right$(thePath, 1)
    Case "\"
       MergePathData = thePath & theFileName
    Case Else
       MergePathData = thePath & "\" & theFileName
End Select

End Function