Impossible de créer un raccourci !!!!!!!

Question

Voici mon problème j'utilise la fonction FCreateShellLink de Vb6stkit.dll mais j'ai une erreur de point d'entrée.

Voici ma déclaration :
Option explicit
Private Declare Function FCreateShellLink Lib "VB6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long

'Ensuite ds un evt bouton_click je l'appelle
Private Sub Command1_Click()
Dim res As Integer

res = FCreateShellLink ("c:", "TestRaccourci", "c:\Gestion\BD.mdb", "")

End Sub

Merci à tous ceux qui pourront m'aider !!!
Gaëlle

MysTiK74 · Answer

Adieu p'tit

Si la declaration de ta fonction est bonne elle retourne un "long" qui ne rentre pas forcément dans un "integer" comme "Res"

A r'vi pa...

Partager ce qu'on sait c'est laisser une trace de notre passage...

cs_rene38 · Answer

Public Declare Function OSfCreateShellLink Lib "vb6stkit.dll" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long

Arguments=""
RetourFonction = OSfCreateShellLink(Chemin_du_raccourci & vbNullChar, NomduProgramme, Chemin_et_Nom_du_programme, Arguments & vbNullChar, True, DossierParentDuDossierProgramme)

Impossible de créer un raccourci !!!!!!!

2 réponses

Discussions similaires