Attribute VB_Name = "GlobalFileRoutines"
' File Routines
'
' Common file I/O routines
'
'  5-19-99 Started by Robert Clemenzi
'
'


Option Explicit

' There are many times that you want to concatenate
' a path and a filename. This should be simple.
' Normally, all paths end without a backslash (\).
' However, root paths usually end with a backslash (a:\).
'
' This routine simply concatenates a path and a filename
' and adds the necessary backslash if it is missing.
'
Function Glob_Concat_Filename(DirPath$, FileName$) As String
Dim tempPath$
  tempPath$ = DirPath$
  If Right(tempPath$, 1) <> "\" Then
    tempPath$ = tempPath$ & "\"
  End If
  Glob_Concat_Filename = tempPath$ & FileName$
End Function