PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV (précédentes versions) → [WD17-Express] Modifier un raccourci Windows .lnk
[WD17-Express] Modifier un raccourci Windows .lnk
Débuté par Mateos, 26 mai 2014 19:30 - 1 réponse
#1
Membre enregistré
6 messages
Popularité : +1 (1 vote)
Posté le 26 mai 2014 - 19:30
Bonsoir,

Sur un précédent laptop, j'avais malencontreusement déplacé le dossier Ma Musique vers Mes Documents (je m'en suis rendu compte plus tard), et entre temps j'ai créé pas mal de raccourcis, notamment pour la station de radio personnalisé des différents GTAs.

Sur mon laptop actuel, j'ai créé un lien symbolique pour ne pas m'embêter.

Sur mon fixe, je souhaiterais vérifier et si besoin modifier les raccourcis qui ont un mauvais chemin.
J'ai donc commencé un nouveau projet sous WinDev 17 Express. J'ai le parcours du dossier avec liste uniquement des raccourcis qui est OK (il y a un fichier TXT pour GTA 3 avec les raccourcis), mais c'est la procédure qui se charge de modifier les mauvais raccourcis qui ne fonctionne pas...

La voici :
//
// Récupération des infos d'un raccourci (.lnk ou .url)
// sFileLnk [in] : Chemin complet du raccourci
//
Procedure ModifieRaccourci(LOCAL sFileLnk)
//
// Utilisation d'un script shell Windows pour récupérer les paramètres d'un raccourci (.lnk ou .url)
//
WshShellest un objet automation "WScript.Shell"
oShellLinkest un objet automation dynamique

QUAND EXCEPTION DANS
// On charge le raccourci
oShellLink = WshShell >> CreateShortCut(sFileLnk)

// On remplace le mauvais chemin par le bon
Remplace(oShellLink >> TargetPath, "Documents\", "")
Remplace(oShellLink >> WorkingDirectory, "Documents\", "")

// On sauvegarde le fichier
WshShell >> 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


J'ai essayé de m'aider de MSDN pour utiliser le Shell, mais je pense être trop novice >.>

Une idée sur ce qui ne va pas ?

Merci d'avance,

Mateos
#2
Membre enregistré
6 messages
Popularité : +1 (1 vote)
Posté le 03 juin 2014 - 20:05
→ Revenir à WINDEV (précédentes versions)