Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6,VBS
Expertise: beginner
Jun 12, 1999

MakeFileName - Create a file name out of its parts

' 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
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date