Mengoptimalkan penggunaan fungsi Shell

Salah satu fungsi built-in vb yang mempunyai mempunyai fungsi serba guna yaitu fungsi Shell. Fungsi ini bisa digunakan untuk :** **

1. Menjalankan file-file Excutible (.exe, .com, .bat de el el)

Contoh menjalankan notepad:

Dim ret As Double
ret = Shell("notepad.exe", vbNormalFocus)

2. Menjalankan file-file non Executible (.doc, .xls, .mdb, .txt de el el)

Contoh menjalankan file text:

Dim ret As Double
ret = Shell("notepad.exe c:\tes.txt", vbNormalFocus) 'dg syarat file tes.txt harus sudah ada

Tapi saran saya untuk menjalankan file-file non executible lebih aman menggunakan fungsi API ShellExecute, karena kita tidak perlu menentukan secara spesifik program apa yang digunakan untuk membuka file tersebut.

3. Mengakses fungsi-fungsi control panel

Contoh kita akan menampilkan dialog Display dan otomatis mengaktifkan tab Background

Dim ret As Double
'displays the Background tab selected
ret = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)

'displays the Screen Saver tab selected
'ret = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)

'displays the Appearance tab selected
'ret = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)

Sumber command lainnya untuk mengakses fungsi-fungsi control panel bisa dilihat disini.

Selamat mencoba