OzStriker59
Messages postés10Date d'inscriptionmercredi 20 février 2002StatutMembreDernière intervention26 avril 2002 20 févr. 2002 à 17:54
Je ne sais pas exactement comment faire mais tu peux essayer de contourner le pb en utilisant soit FileCopy (ou MoveFile). Tu devras d'abord créer un fichier temporaire puis tu le copies sur le répertoire du Bureau (chemin d'accès complet). Enfin tu supprimes le fichier temporaire avec Kill. Pour les syntaxes, regardes ds l'aide. Attention, ca ne crée pas un raccourci !!! J'espère que ca te mettra ds la voie.
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 3 juil. 2002 à 17:11
Deux modif à faire dans SETUP1.VBP situé dans
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1
1. dans le module Common.bas Général Déclarations, ajouter :
Public Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
2. Dans la feuille setup1.frm Form_unload, ajouter les deux lignes entre **** :
Private Sub Form_Unload(Cancel As Integer)
'*****************************************
Dim RetourFonction As Long
RetourFonction = fCreateShellLink("..\..\Bureau", gstrAppName, gstrDestDir & gstrAppName, "")
'******************************************
CleanUpCabs
End Sub
3. Ne pas oublier d'ajouter dans l'assistant Empaquetage le fichier STKIT432.DLL