Buka File dengan (VB 6.0)

Berikut ini saya bagikan sebuah kode VB 6.0 (Visual Basic 6.0) yang berguna untuk membuka/menjalankan file sesuai dengan keinginan Kita melalui program VB 6.0. Ok, langsung saja ke langkah pembuatannya.

Berikut ini langkah pembuatannya.

1. Buat Project baru.
2. Pada Form yang aktif tambahkan 1 Textbox dan 2 Commandbutton.
3. Tambahkan 1 Common Dialog dengan cara pilih menu Project --> Components --> Centang Microsoft Common Dialog Control 6.0 (SP6) dan atur Properties, Name=cd1.
4. Atur Properties Textbox, Locked=True.
5. Atur Properties Commandbutton 1 dengan Caption=Cari dan Commanbutton 2 dengan Caption=Jalankan.
6. Double click tombol Cari dan masukkan kode berikut ini.

Me.cd1.ShowOpen
Me.Text1.Text = Me.cd1.FileTitle

7. Double click tombol Jalankan dan masukkan kode berikut ini.

Dim result As Long
result = ShellExecute(Me.hwnd, "Open", Text1.Text, "", "", SW_SHOW)
If result <= 32 Then
    errhandling
End If

8. Selesai dan jalankan programnya.

Untuk contoh programnya Anda bisa download disini atau disini.