quelle commande je pourrais écrire dans un fichier .vbs qui crée un raccourci à un emplacement donné qui ramène au fichier .vbs qu'elle que soit la place du fichier .vbs?

Si çà peut aider :
 
Dim WSHShell, fs
 
Set WSHShell = WScript.CreateObject("WScript.Shell" )
Set fs = WScript.CreateObject("Scripting.FileSystemObject" )
 
Function MakeDesktopShortcut( name, target )
Dim Shortcut,DesktopPath,StartupPath
 
 DesktopPath = WSHShell.SpecialFolders("Desktop" )
 
 Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" & name & ".lnk" )
 Shortcut.TargetPath = target
 StartupPath = fs.GetParentFolderName( target )
 
 If fs.FolderExists( StartupPath ) then
    Shortcut.WorkingDirectory = StartupPath
 End If
 Shortcut.Save
End Function
 
MakeDesktopShortcut "Shortcut to Notepad", "C:\I386\Notepad.exe"
 
A visiter également http://www.bellamyjc.org/fr/vbsdow [...] chshortcut

bon ca marche (c'est pas souvent) mais comment faire pour que ce ne soit pas un "specialfolder" en l'occurence "desktop", juste un dossier normal...

http://www.bellamyjc.org/fr/vbsdow [...] chshortcut

wé.........j'm'y perd un peu mais chu sur qu'avec un peu de patience je vais trouver quelquechose...