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

Apa Bahasa Arabnya Satu, Kisah Anak TK | Humor

Anak: Abi, apa bahasa arabnya 'satu'?
Abi: Wahid.
Anak: bukan
Abi: Lalu?
Anak: Pokoknya bukan wahid!
Abi: Kalau bukan wahid, lantas apa?
Anak: ntar, tanyain ibu guru dulu.

(selepas pulang dari sekolahnya)

Anak: Tuh kan bukan wahid.
Abi: Lalu apa (sambil keheranan)?
Anak: WAHIDUN!! nih lagunya, Wahidun satu, itsnaini dua, tsalasatun tiga...
Abi: Ehm... sudah! abi juga masih ingat.

READ MORE - Apa Bahasa Arabnya Satu, Kisah Anak TK | Humor