Je crois que cela peut interesser, j'ai eu du mal à trouver:
Récuperer la cible d'1 raccourci à partir de son chemin.
Et pour contribuer un peu.
Source / Exemple :
' bibliothèque "Windows Script Host Object Model" ( edition/references; fermer puis reouvrir le projet)
Dim snomracc As String
Dim WSHShell
Private Sub Command1_Click() 'creation d'1 raccourci
Dim cible As String
Dim Shortcut As WshShortcut
Set WSHShell = CreateObject("WScript.Shell")
'cible = "%windir%\notepad.exe"
cible = "%SystemRoot%\system32\NOTEPAD.EXE"
snomracc = InputBox("Etiquette du raccourci:", "Création d'un raccourci")
Set Shortcut = WSHShell.CreateShortcut(App.Path & "\" & snomracc & ".lnk")
With Shortcut
.TargetPath = WSHShell.ExpandEnvironmentStrings(cible)
.Arguments = "" '"/play"
.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%SystemRoot%\system32")
.IconLocation = WSHShell.ExpandEnvironmentStrings(cible)
.Description = ""
.Hotkey = "CTRL+ALT+SHIFT+X"
.WindowStyle = 4
End With
Shortcut.Save
End Sub
Private Sub Command2_Click() 'recup infos
Dim Shortcut As WshShortcut 'CreateShortcut cree ou modifie un existant.
Set WSHShell = CreateObject("WScript.Shell")
Set Shortcut = WSHShell.CreateShortcut(App.Path & "\" & snomracc & ".lnk")
MsgBox Shortcut.TargetPath & Chr(10) & _
Shortcut.Arguments & Chr(10) & _
Shortcut.Description & Chr(10) & _
Shortcut.FullName & Chr(10) & _
Shortcut.Hotkey & Chr(10) & _
Shortcut.IconLocation & Chr(10) & _
Shortcut.WindowStyle & Chr(10) & _
Shortcut.WorkingDirectory
Unload Form1
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.