Penulis Topik: [ASK] Cara Membuat Shorcut di desktop VB6  (Dibaca 5054 kali)

Offline chetya

  • Pro10
  • ***
  • Tulisan: 37
  • Reputation: 139
  • lagi belajar membuat animasi !
    • Lihat Profil
    • cHetya
[ASK] Cara Membuat Shorcut di desktop VB6
« pada: September 15, 2013, 03:51:34 AM »
dari judulnya aja udah ketauan , ane mau nanya ne sama kalian gimana sih cara otomatis membuat  Shorcut Aplikasi di desktop ..
contohnya , kayak antivirus kebanggan kita SMADAV  ;) , ketika ditekan aktifkan RTP , nongol deh shorcutnya di desktop ..
kalo ada yg tau , ato mau sharing cendol dahh (Y)

mohon bantuaannya ..  ^:)^ ^:)^ ^:)^
Jangan Pernah malu untuk mencoba ..
karna ....
"Hidup Itu Berawal Dari Mimpi .."

Offline RifqiSah

  • Pro500
  • ******
  • Tulisan: 921
  • Reputation: 820
  • Jenis kelamin: Pria
  • © 2018 Alrif Technology
    • Lihat Profil
Re: [ASK] Cara Membuat Shorcut di desktop VB6
« Jawab #1 pada: September 15, 2013, 06:03:49 AM »
baiklah, nih gan codenya ;)

Kode: [Pilih]
Public Function CreateShortCut(ByVal vsFileNameAndPath As String, ByVal vsShortCutPath As String, Optional ByVal vsWorkingDir As String = "", Optional ByVal vsArguments As String = "") As Boolean
   Dim bRetVal As Boolean
   Dim oFSO As FileSystemObject
   
   Dim oShortCut As IWshRuntimeLibrary.IWshShortcut
   Dim oShell As New WshShell
   Set oFSO = New FileSystemObject
   
   If oFSO.FolderExists(vsShortCutPath) And oFSO.FileExists(vsFileNameAndPath) Then
       Set oShortCut = oShell.CreateShortCut(vsShortCutPath & "\Test.lnk")
             
       With oShortCut
           .TargetPath = vsFileNameAndPath
           .WindowStyle = 1
           .Description = "Shortcut for Test"
           If Len(vsWorkingDir) > 0 Then
               If oFSO.FolderExists(vsWorkingDir) Then
                   .WorkingDirectory = vsWorkingDir
               End If
           End If
           .IconLocation = vsFileNameAndPath & ", 0"
           .Arguments = vsArguments
           .Save
       End With
      bRetVal = True
   Else
      bRetVal = False
   End If

   CreateShortCut = bRetVal
End Function

liat kode :
Set oShortCut = oShell.CreateShortCut(vsShortCutPath & "\Test.lnk")
.Description = "Shortcut for Test"

pemakaiannya seperti ini :

Kode: [Pilih]
Private Sub Form_Load()
CreateShortCut "C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE", "F:\"
End Sub


CMIIW :D

Offline chetya

  • Pro10
  • ***
  • Tulisan: 37
  • Reputation: 139
  • lagi belajar membuat animasi !
    • Lihat Profil
    • cHetya
Re: [ASK] Cara Membuat Shorcut di desktop VB6
« Jawab #2 pada: September 15, 2013, 06:20:25 PM »
Dim oFSO As FileSystemObject => compile error User defined type not defined

FileSystemObject ga ada di properti vb6 saya ??

Jangan Pernah malu untuk mencoba ..
karna ....
"Hidup Itu Berawal Dari Mimpi .."

Offline RifqiSah

  • Pro500
  • ******
  • Tulisan: 921
  • Reputation: 820
  • Jenis kelamin: Pria
  • © 2018 Alrif Technology
    • Lihat Profil
Re: [ASK] Cara Membuat Shorcut di desktop VB6
« Jawab #3 pada: September 16, 2013, 12:26:57 AM »
tambahin shell32.dll dulu, caranya Project -> References -> Microsoft Shell Controls And Automation

« Edit Terakhir: September 16, 2013, 12:28:32 AM oleh Muhammad Rifqi »

Offline chetya

  • Pro10
  • ***
  • Tulisan: 37
  • Reputation: 139
  • lagi belajar membuat animasi !
    • Lihat Profil
    • cHetya
Re: [ASK] Cara Membuat Shorcut di desktop VB6
« Jawab #4 pada: September 21, 2013, 04:39:15 PM »
Tetap ga bisa bro  ~x( ~x( ~x( ..
coba kasih project nya aja bro . sekalian memperdalam ...
thank .
butuh banget :D
Jangan Pernah malu untuk mencoba ..
karna ....
"Hidup Itu Berawal Dari Mimpi .."

Offline Dewa bagas kara

  • Pro10
  • ***
  • Tulisan: 82
  • Reputation: 188
    • Lihat Profil
Re: [ASK] Cara Membuat Shorcut di desktop VB6
« Jawab #5 pada: Oktober 18, 2013, 01:52:41 PM »