Problème Raccourcis ! Help
MatthieuFourcade
Messages postés
32
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
5 avril 2009
-
3 févr. 2003 à 14:35
pelw Messages postés 148 Date d'inscription dimanche 12 janvier 2003 Statut Membre Dernière intervention 14 février 2005 - 3 févr. 2003 à 21:52
pelw Messages postés 148 Date d'inscription dimanche 12 janvier 2003 Statut Membre Dernière intervention 14 février 2005 - 3 févr. 2003 à 21:52
A voir également:
- Problème Raccourcis ! Help
- Des raccourcis ?! ✓ - Forum PHP
- Probleme de suppression de raccourcis ✓ - Forum Javascript / DHTML
- Raccourcis clavier ✓ - Forum VBScript (VBS)
- Raccourcis CommandButton... ✓ - Forum Visual Basic 6
- Raccourcis souligner ✓ - Forum Visual Basic
1 réponse
pelw
Messages postés
148
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
14 février 2005
6
3 févr. 2003 à 21:52
3 févr. 2003 à 21:52
Voici un exemple. Il suffit de remplacer "C:\MonRaccourci.lnk" par le raccourci qui t'intéresse :
Sub Main()
Dim oWshShell As Object
Dim oWshLink As Object
Dim sLinkFilePath As String
sLinkFilePath = "C:\MonRaccourci.lnk"
Set oWshShell = CreateObject("WScript.Shell")
Set oWshLink = oWshShell.CreateShortcut(sLinkFilePath)
MsgBox "La cible est : " & oWshLink.TargetPath
Set oWshLink = Nothing
Set oWshShell = Nothing
End Sub
@+
pelw
Sub Main()
Dim oWshShell As Object
Dim oWshLink As Object
Dim sLinkFilePath As String
sLinkFilePath = "C:\MonRaccourci.lnk"
Set oWshShell = CreateObject("WScript.Shell")
Set oWshLink = oWshShell.CreateShortcut(sLinkFilePath)
MsgBox "La cible est : " & oWshLink.TargetPath
Set oWshLink = Nothing
Set oWshShell = Nothing
End Sub
@+
pelw
