Tutorial Membuat Shortcut dengan VB6

Detiktutorial, kali ini akan membahas bagaimana membuat shortcut dengan menggunakan VB6 atau visual basic 6. Di dalam pembuatan program ini kita membutuhkan component tambahan seperti Microsoft Common Dialog Control 6.0(SP3).
Cara pembuatan program cukup sederhana :

1. Buat form baru
2. Tambahkan  2 buah Command Button, rename Command1 menjadi fungsi, sedangkan Command2 pada properties Caption remane menjadi Create ShortCut.
3. Tambahkan 1 buat Listbox.
4. Tambahkan 1 buah Common Dialog, cara menambahkan komponen Microsoft Common Dialog Control 6.0(SP3).
   • Klik kanan pada toolbar menu, pilih components
   • Beri tanda centang pada Microsoft Common Dialog Control 6.0(SP3).
   • Apply dan OK
5. Tambahkan 1 buah Textbox.

Nah setelah semuanya siap, sekarang tinggal memasukkan scriptnya ke dalam form program anda :

Silahkan ketik atau copy-paste kode dibawah ini :
Dim WShell As Object Dim NameExe As String Private Sub Command1_Click() With CommonDialog1 .FileName = "*.exe" .ShowOpen If .FileName = "" Then Exit Sub If Dir(.FileName) = "" Then Exit Sub Text1 = .FileName NameExe = Left(.FileTitle, Len(.FileTitle) - 4) End With End Sub Private Sub Command2_Click() Dim wShortcut As Object Dim i As Integer If Dir(Text1) = "" Or Trim(NameExe) = "" Or List1.ListCount = -1 Then MsgBox "Error" Else For i = 0 To List1.ListCount - 1 Set wShortcut = WShell.CreateShortcut(List1.List(i) & "\" & NameExe & ".lnk") wShortcut.TargetPath = Text1 wShortcut.Save Next MsgBox "Shortcut telah dibuat..", , "Membuat Shortcut" End If End Sub Private Sub Form_Load() Dim temp Set WShell = CreateObject("WScript.Shell") List1.Clear For Each temp In WShell.SpecialFolders If LCase(Right(temp, 17)) = "all users\desktop" Then List1.AddItem temp Next End Sub

nah cukup sekian tutorial kali ini, sampai ketemu di tutorial selanjutnya ....
Jangan lupa tinggalkan komentar setelah membaca atau sebelum Copas artikel ini  :-)