Module Untuk Memperoleh Nama File, Extension, Path - VB6

Karena bingung memberi judul, akhirnya judulnya seperti di atas. Module ini digunakan untuk memperoleh (return/get) nama dari PathName lengkap, apakah yang akan diambil extensionnya saja, filenamenya saja, path tanpa filename. Adapun kodenya sebagai berikut:

Option Explicit 
 
Public Enum eFilename 
    ExtentionOnly = 0 'contoh .exe, .zip, dll 
    FileNameOnly = 1 'update.exe, notify.exe, file.zip 
    PathNameOnly = 2 'c:\program files\anti virus 
    WithOutExtention = 3 'update, notify (tanpa .exe) 
End Enum 
 
Public Function GetName(Filename As String, str As eFilename) As String 
  Dim vArray As Variant, sDelimiter As String, e As String, v() As String 
  If Filename = "" Then Exit Function 
  Select Case str 
        Case ExtentionOnly 
            sDelimiter = "." 
        Case FileNameOnly 
            sDelimiter = "\" 
        Case PathNameOnly 
            vArray = Split(Filename, "\") 
            GetName = Mid(Filename, 1, Len(Filename) - Len(vArray(UBound(vArray))) - 1) 
            Exit Function 
        Case WithOutExtention 
            vArray = Split(Filename, "\") 
            e = vArray(UBound(vArray)) 
            v() = Split(e, ".") 
            GetName = v(0) 
            Exit Function 
  End Select 
  vArray = Split(Filename, sDelimiter) 
  GetName = vArray(UBound(vArray)) 
End Function 

Contoh penggunaan kode di atas:

Private Sub Command1_Click() 
    msgbox GetName ("C:\Program Files\UI\Update.exe",FileNameOnly) 'jika ingin memperoleh filenamenya saja, dll. 
End Sub