VB6 Code - Fungsi Untuk Mengisi ListBox Dengan Seluruh File

Di bawah ini merupakan fungsi VB6 untuk mengisi Listbox dengan seluruh file, maksudnya (karena judul tersebut kurang lengkap) fungsi untuk mengisi ListBox dengan file-file dari sebuah directory yang telah ditentukan.

Fungsi untuk mengisi ListBox dengan seluruh file:

Function LoadFilesToList(FileName As String, lst As ListBox, Optional Attrib As VbFileAttribute)
    Dim sNextFile As String
    sNextFile = Dir$(FileName, Attrib)
    While sNextFile <> ""
        If sNextFile <> "." And sNextFile <> ".." Then
            lst.AddItem sNextFile
        End If
        sNextFile = Dir$
    Wend
End Function

Contoh Penggunaan fungsi untuk mengisi ListBox dengan seluruh file:

Private Sub Command2_Click()
     LoadFilesToList "C:\Windows\System32\*", List1, vbArchive + _
     vbDirectory + vbSystem
    'mengenai vbArchive + vbDirectory + vbSystem optional, boleh _
    diisi atau tidak tergantung kebutuhan
End Sub

READ MORE - VB6 Code - Fungsi Untuk Mengisi ListBox Dengan Seluruh File

VB6 Code - Fungsi Untuk Mengetahui Keberadaan Sebuah Folder

Di bawah ini merupakan fungsi VB6 untuk mengetahui keberadaan folder.

Fungsi untuk mengetahui keberadaan folder:

Function IsFolderExist(FolderName As String) As Boolean
     IsFolderExist = (Dir$(FolderName, vbDirectory) <> "")
End Function

Contoh penggunaan fungsi untuk mengetahui keberadaan sebuah folder:

Private Sub Form_Load()
     MsgBox IsFolderExist("C:\Windows") 'True jika ada
     MsgBox IsFolderExist("C:\Data Asep Hibban") 'False jika tidak ada
End Sub

READ MORE - VB6 Code - Fungsi Untuk Mengetahui Keberadaan Sebuah Folder

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

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

Anak Sapi Penderita Amnesia | Humor

Alkisah, seekor anak sapi tertabrak mobil kepalanya terbentur batu, beruntunglah anak sapi tersebut tidak sampai mati, ia hanya divonis menderita amnesia oleh dokter hewan yang memeriksanya. Setelah kejadian tersebut anak sapi itu mulai bertingkah aneh. Ia terlihat sering bermain dengan anak manusia. Ibunya melarang. Tapi anak sapi tersebut malah balik bertanya, katanya: "Apakah aku ini sapi?". Ibunya menjawab: "Ya, kamu masih sapi, kamu hanya menderita amnesia saja".

READ MORE - Anak Sapi Penderita Amnesia | Humor