VB6 Code - Mendapatkan Nama File dari Path Lengkap

Di bawah ini merupakan fungsi VB6 untuk mendapatkan nama file dari path lengkap.

'Fungsi untuk mendapatkan file dari path lengkap:
Public Function GetFileName(FileName As String) As String
    Dim str() As String
    str = Split(FileName, "\")
    GetFileName = str(UBound(str))
End Function

'Contoh fungsi untuk mendapatkan file dari path lengkap:
Private Sub Form_Load()
    MsgBox GetFileName("C:\Program Files\Winamp.exe")
End Sub

READ MORE - VB6 Code - Mendapatkan Nama File dari Path Lengkap

VB6 Code - Mendapatkan Ekstensi dari Path Lengkap

Di bawah merupakan fungsi VB6 untuk mendapatkan ekstensi dari path lengkap.

'Fungsi untuk mendapatkan ekstensi dari path lengkap:
Public Function GetExtension(FileName As String)
    Dim str() As String
    str = Split(FileName, ".")
    GetExtension = str(UBound(str))
End Function

'Contoh penggunaan fungsi untuk mendapatkan ekstensi dari path lengkap
Private Sub Form_Load()
    MsgBox GetExtension("c:\mydir\myfile.exe") 'menghasilkan 'exe'
End Sub

READ MORE - VB6 Code - Mendapatkan Ekstensi dari Path Lengkap

VB6 Code - Fungsi Untuk Mendapatkan Directory System

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory system.

'Fungsi untuk mendapatkan directory system:
Function GetSystemPath() As String
    GetSystemPath = Environ("WinDir") & "\System32"
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory system:
Private Sub Form_Load()
    MsgBox GetSystemPath 'menghasilkan C:\Windows\System32 jika windows _
    terinstall pada drive C:\ dan menghasilkan D:\Windows\System32 jika _
    Windows terinstal pada drive D:\ dan seterusnya.
End Sub

READ MORE - VB6 Code - Fungsi Untuk Mendapatkan Directory System

VB6 Code - Fungsi Untuk Mendapatkan Directory Program Files

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory Program Files.

'Fungsi untuk mendapatkan directory Program Files:
Function GetProgramFilesPath() As String
   GetProgramFilesPath = Environ("ProgramFiles")
End Function

'Contoh Fungsi untuk mendapatkan directory program files:
Private Sub Form_Load()
   MsgBox GetProgramFilesPath
   'Maka akan menghasilkan C:\Program Files jika windows Anda terinstall _
   pada drive C:\
   'atau D:\Program Files jika windows Anda terinstall pada drive D:\
   'dan seterusnya.
End Sub

READ MORE - VB6 Code - Fungsi Untuk Mendapatkan Directory Program Files