Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

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

Create full pathname


'add path information and file name, including \ separator if needed
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