Membuat Shortcut dengan VB 6

Pada kesempatan kali ini, kita akan membahas cara membuat shortcut dengan menggunakan Visual Basic 6. Didalam pembuatan program ini kita membuthkan peralatan pembantu seperti Microsoft Common Dialog Control 6.0(SP3).

Cara pembuatan program :
Buat form baru, masukan 2 buah CommandButton, 1 buah ListBox, 1 buah CommonDialog, dan 1 buah TextBox. Pada Command1 pada properties Caption beri nama Brows, sedangkan pada Command2 pada properties Caption beri nama Create ShortCut.

Cara penambahan komponen Microsoft Common Dialog Control 6.0(SP3) yaitu :
- Menu Project
- Components
- Beri tanda di Microsoft Common Dialog Control 6.0(SP3)
- Ok

Setelah semuanya sudah siap, sekarang tinggal memasukan scriptnya ke dalam form :

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 semua telah selesai, sekarang kita tinggal jalankan program yang telah kita buat bersama tadi…. Jika kurang jelas atau mengalami kesulitan didalam script diatas, anda bisa mendownload Aplikasi program Membuat Shortcut beserta source codenya di sini

.