Binaryworld - MakeFileName - Create a file name out of its parts ... [ VB -> Files & Folder ]

' Make a complete file name by assemblying its individual parts
' if Extension isn't omitted, it overwrites any extension held in BaseName

Function MakeFileName(Drive As String, Path As String, BaseName As String, _
  Optional Extension As String)

  ' add a trailing colon to the drive name, if needed
  MakeFileName = Drive & IIf(Right$(Drive, 1) <> ":", ":", "")
  ' add a trailing backslash to the path, if needed
  MakeFileName = MakeFileName & Path & IIf(Right$(Path, 1) <> "\", "\", "")

  If Len(Extension) = 0 Then
    ' no extension has been provided
    MakeFileName = MakeFileName & BaseName
  ElseIf InStr(BaseName, ".") = 0 Then
    ' the base name doesn't contain any extension
    MakeFileName = MakeFileName & BaseName & "." & Extension
  Else
    ' we need to drop the extension in the base name
    Dim i As Long
    For i = Len(BaseName) To 1 Step -1
      If Mid$(BaseName, i, 1) = "." Then
        MakeFileName = MakeFileName & Left$(BaseName, i) & Extension
        Exit For
      End If
    Next
  End If
End Function