Comment garder des raccourcis d'applications en cours / en synchronisation?
-
19-09-2019 - |
Question
J'ai une application mise à jour automatique qui vérifie les mises à jour de nouvelles, déplace les fichiers existants, y compris le app.exe dans un nouveau dossier et copie la nouvelle version .exe + .dll dans le dossier de l'application de
tout fonctionne parfaitement sans problème, mais il y a un petit problème - les raccourcis créés au moment de l'installation d'origine devient invalide
Y at-il un moyen de corriger ces raccourcis programme?
La solution
Vous pouvez mettre à jour un raccourci à l'aide objet WshShell (pour identifier les dossiers et les lieux) et Scripting.FileSystemObject pour effectuer les modifications.
Voici un article sur MSDN sur l'objet WshShell: http://msdn.microsoft.com/en-us /library/aew9yb99(VS.85).aspx
Ceci est un exemple de remplacement d'un lien de raccourci dans VB Script:
Sub ReplaceShortcut (folder, target, targetTarget)
set oFso = CreateObject("Scripting.FilesystemObject")
Set oFolder = oFso.GetFolder(folder)
Set oFiles = oFolder.Files
For Each oFile In oFiles
If LCase(oFso.GetExtensionName(oFile.name)) = "lnk" Then
Set oLnk = oShell.CreateShortcut(oFile.path)
If instr(1, oLnk.TargetPath, target, 1)<>0 Then
oLnk.TargetPath = replace(oLnk.TargetPath, target, targetTarget)
oLnk.Save
End If
End If
Next
End Sub