Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (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
Private Sub Command1_Click()
1- MsgBox (fCreateShellLink "c:\..", "Raccourci", "c:\windows\Calc.exe", "", 0, "" )) 'c:\windows\bureau
2 -MsgBox (fCreateShellLink "c:\...", "Raccourci", "c:\windows\Calc.exe", "", 0, "" )) 'c:\windows\(ajouter nom dossier)
3- MsgBox (fCreateShellLink "c:\....\mp3", "Raccourci", "c:\windows\Calc.exe", "", 0, "" )) 'c:\(ajouter non dossier)
tu peux enlever msgbox si cela te fait plaisir, il te renvera 1 si le raccourci est crée, 0 si il à échoué...
End Sub