Tuesday, March 16, 2010

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