[VB5] Come creare un collegamento al .exe sul desktop?

[Igor Baldacci]

Salve ragazzi,
sto scrivendo un piccolo programma in VB 5 che mi serve per "installare" un programma da CD ad Hard Disk... installare è una parola grossa perchè in realtà si tratta di una semplice COPIA di file e cartelle da CD ad una crtella predispota sul HD. Nondevo quindi fare particolari cose e non sto quindi appoggiandomi ad un programma già esistente.

Fatta dunque la copia dei file volevo far creare automaticamente un collegamento al file di avvio del programma installato (copiato) che è un ".exe"!

Esiste un modo per farlo in automatico? E se si è possibile anche far creare un collegamento sotto il menu "start" di Windows?

Pensavo di far individuare in automatico la crtella "Desktop" sul PC in cui viene installato il programma e poi magari copiarci un collegamento che ho già predisposto e che ho copiato sul CD... ma ho paura di incasinarmi così, anche perchè uno può decidere di installare il programma sotto la cartella che preferisce.

Si accettano suggerimenti... grazie a tutti!

[polo76]

anche io voglio mettere un collegamento all'eseguibile in particolare lo vorrei mettere su XP Pro:
sul desktop di ALL user
sull'esecuzione automatica di un particolare utente user

Tu hai trovato un modo?

per ora mi viene in mente solo di fare un programmino apposta per l'installazione o magari un file bat con comandi dos.

[Igor Baldacci]

Si ho trovato qualcosa e l'ho adattato alle mie esigenze, per ora funziona ma continuo a testarlo.

Ti posto la versione originale che ho trovato, se gli dai un'occhiata dovrebbe essere facile modificarlo e adattarlo. Io l'ho inserito in un programmino che prima mi copia da CD il programma sull'HD e poi crea il collegamento sul Desktop.

Vorrei cercare anche di far mettere un link sul menu Avvio e ci sto lavorando.

Fammi sapere se ti può servire. Ciao.

''''
'This line should be in the declarations portion
Private fso as New FileSystemObject
''''''
Private Sub cmdCreateShortcut_Click()
            Dim fldrnam as String, rslt as Long, shortcutname as String
            On Error Resume Next
            fldrnam = lvwList.SelectedItem.SubItems(5)
            If fso.FolderExists(fldrnam) Then
                fldrnam = Left$(fldrnam, Len(fldrnam) - 1)
                shortcutname = lvwList.SelectedItem.text & " " & lvwList.SelectedItem.SubItems(2)
                Call CreateShortCut(fldrnam, shortcutname)
            End If
End Sub

Sub CreateShortCut(fldrname as String, shortcutname as String)
            Dim wss as Object, link as Object, DesktopPath as String
            Dim lnkname as String, favname as String, FavoritesPath as String
            Set wss = CreateObject("WScript.Shell")
            lnkname = shortcutname & ".lnk"
            DesktopPath = wss.SpecialFolders("AllUsersDesktop")
            FavoritesPath = wss.SpecialFolders("Favorites")
            favname = fso.BuildPath(FavoritesPath, lnkname)
            lnkname = fso.BuildPath(DesktopPath, lnkname)
            Set link = wss.CreateShortCut(lnkname)
            link.Description = shortcutname & vbCrLf & "AutoCAD Project Folder"
            link.IconLocation = "C:\Program Files\AutoCAD 2004\acad.exe,   1"
            link.TargetPath = fldrname
            ' If the window is minimized or maximized, the system restores it to its original size and position.
            link.WindowStyle = 1
            ' Activates the window and displays it as a maximized window.
            ' link.WindowStyle = 3
            link.WorkingDirectory = fldrname
            link.Save
            fso.CopyFile lnkname, favname