[R] Récupération icone dans le temporaire

[Sydneysyd]

Bonjour à tous,

J'ai placé un icone dans le dossier temporaire afin de le reutiliser pour créer un raccourci sur le bureau utilisant cette icone.

Mais cela ne marche pas, j'ai beau cherché, je n'air rien trouvé et je pense qu'il me manque pas grand chose dans la commande

Local $iconFile = @DesktopDir & "\Ixbus Web.lnk"
FileCreateShortcut ($iconfile, @DesktopDir & "\Ixbus Web.lnk", " ", " ", " ", @TempDir & "\Icon_2.ico")

Où est l'erreur ?

Merci d'avance,

Cdt

[TopXm]

Hello

Y'a un truc qui va pas, tu utilises deux fois le LNK sans renseigner le chemin du fichier devant être exécuité (Argument 1). La variable $IconFile n'est pas au bon endroit ou plutôt est mal nommée. Pas utile de mettre un espace dans les arguments non renseignés.

En gros faut que tu regardes de plus prés l'aide

ce qui pourrait donner :

Code : Tout sélectionner

Local $LNKFile = @DesktopDir & "\Ixbus Web.lnk"
Local $EXEFile = @SystemDir & "\Notepad.exe"
FileCreateShortcut($EXEFile, $LNKFile, "", "", "", @TempDir & "\Icon_2.ico")
 

[Sydneysyd]

Re,

Merci pour le code, mais l'icone ne s'affiche pas...

Je le decompresse pourtant dans le temporaire en debut de script

► Afficher le texte

;creation de l'icone de raccourci avec l'image de l'icone IxBus Web

FileInstall("C:\Users\test\Desktop\A Faire\__test\IxWai\Ressources\Icon_2.ico", @tempdir & "\IXWAI\Icon_2.ico", 1)

Local $LNKFile = @DesktopDir & "\Ixbus Web.lnk"
Local $EXEFile = @ProgramFilesDir & "\Internet Explorer\iexplore.exe"
FileCreateShortcut($EXEFile, $LNKFile, "", "", "", @TempDir & "\Icon_2.ico")

MsgBox(0, "Informations", "Ajouts effectués avec succès !")

De plus, quand je vais vérifier si l'icone existe, il est bien présent dans le dossier. Pourquoi, ne veut-il pas me l'affecter ?

[Tlem]

Code : Tout sélectionner

;creation de l'icone de raccourci avec l'image de l'icone IxBus Web

;FileInstall("C:\Users\test\Desktop\A Faire\__test\IxWai\Ressources\Icon_2.ico", @tempdir & "\IXWAI\Icon_2.ico", 1)

Local $LNKFile = @DesktopDir & "\Ixbus Web.lnk"
Local $EXEFile = @ProgramFilesDir & "\Internet Explorer\iexplore.exe"
Local $IcoFile = @ProgramFilesDir & "\AutoIt3\Icons\au3.ico"

FileCreateShortcut($EXEFile, $LNKFile, "", "", "", $IcoFile)

MsgBox(0, "Informations", "Ajouts effectués avec succès !")

Fonctionne comme il se doit sur mon PC !

[Sydneysyd]

Oui ca y est c'est ok !

Un grand MERCI Tlem ! ^^

J'ai raté une variable je pense...