Discussion :

[Mateos81]

Bonsoir,

Je vais poster un lien menant au sujet restant sans réponse sur les forums PCSoft, puisque bien souvent je trouve davantage d'aide sur vos forums que les leur, j'ai donc décidé de finalement m'enregistrer ici, et de vous soumettre ma question :
http://forum.pcsoft.fr/fr-FR/pcsoft....s-lnk/read.awp

Une modification faite après avoir posté (je n'arrive pas à valider mes éditions sur leur forums...) :
Avant : Remplace(oShellLink >> TargetPath, "Documents\", "")
Après : (oShellLink >> TargetPath) = Remplace(oShellLink >> TargetPath, "Documents\", "")

Ceci pour les 2 lignes utilisant la procédure Remplace().

Pour ce qui est du préfixe de la discussion, il n'y a pas de WD17E, donc j'ai juste pris le plus proche :/

Merci d'avance,

Mateos

[jurassic pork]

hello,
il y a une erreur dans ton code, tu fais un save de WshShell ne serait-ce pas plutôt un save de oShellLink ?

Sur ma machine en windows 7, ce code fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PROCEDURE ModifieRaccourci(sFileLnk est une chaîne)
// Modification d'un raccourci (.lnk ou .url)
WshShell est un objet Automation "WScript.Shell"
oShellLink est un objet Automation dynamique
 
QUAND EXCEPTION DANS
	// On charge le raccourci
	oShellLink = WshShell >> CreateShortCut(sFileLnk)	
	// On remplace le mauvais chemin par le bon
	oShellLink >> TargetPath =	Remplace(oShellLink >> TargetPath, "Documents\", "")
	oShellLink >> WorkingDirectory = Remplace(oShellLink >> WorkingDirectory, "Documents\", "")	
	// On sauvegarde les paramètres du lien
	oShellLink >> Save()
FAIRE
	SI (oShellLink >> TargetPath) ~= "" ALORS
		// Ignore l'erreur si le chemin cible a été trouvé
		Trace("Impossible d'extraire les infos du raccourci " + ExceptionInfo(errComplet))
	FIN
FIN

Ami calmant, J.P

[Mateos81]

Comme quoi je n'étais pas si loin ^^'

Merci beaucoup, j'ai testé et ça marche aussi ! Il ne me reste plus qu'à supprimer le lien symbolique sur mon laptop et transférer mes raccourcis vers mon nouveau PC (en modifiant néanmoins le nom d'utilisateur dans le chemin, mais ça c'est rapide ).