VB6 Code - Fungsi Untuk Membuka Directory Tertentu

Di bawah ini merupakan fungsi VB6 untuk membuka directory tertentu. Karena menggunakan metode Early Binding maka, Untuk keperluan ini Anda harus mereferensi objek "Microsoft Shell Controls And Automation" atau "Shell32.dll" yang biasa terletak pada SystemRoot\System32 (c:\Windows\System32\Shell32.dll).

Jika Anda ingin menggunakan metode Late Binding maka gantilah kode berikut:

Dim Sh as new Shell32.Shell

Menjadi:

Dim Sh as Object
Set Sh = CreateObject("Shell.Application")

Option Explicit

Function OpenPath(vDir)
    Dim sh As New Shell32.Shell
    sh.Open vDir
    Set sh = Nothing
End Function

'Contoh penggunaan
Private Sub Command1_Click()
    Call OpenPath("C:\")
End Sub

READ MORE - VB6 Code - Fungsi Untuk Membuka Directory Tertentu

VB6 Code - Fungsi Untuk Meng-Cascade Seluruh Windows

Di bawah ini merupakan fungsi VB6 untuk Meng-Cascade Seluruh Windows. Karena menggunakan metode Early Binding maka, Untuk keperluan ini Anda harus mereferensi objek "Microsoft Shell Controls And Automation" atau "Shell32.dll" yang biasa terletak pada SystemRoot\System32 (c:\Windows\System32\Shell32.dll).

Jika Anda ingin menggunakan metode Late Binding maka gantilah kode berikut:
Dim Sh as new Shell32.Shell

Menjadi:

Dim Sh as Object
Set Sh = CreateObject("Shell.Application")

Option Explicit

Sub CascadeWindows()
   Dim sh As New Shell32.Shell
   sh.CascadeWindows
   Set sh = Nothing
End Sub

'Contoh penggunaan
Private Sub Command1_Click()
   CascadeWindows
End Sub

READ MORE - VB6 Code - Fungsi Untuk Meng-Cascade Seluruh Windows

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