Lire un raccourci
Résolu
KiWin
Messages postés
26
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
11 avril 2006
-
9 oct. 2004 à 21:14
KiWin Messages postés 26 Date d'inscription dimanche 16 février 2003 Statut Membre Dernière intervention 11 avril 2006 - 10 oct. 2004 à 14:48
KiWin Messages postés 26 Date d'inscription dimanche 16 février 2003 Statut Membre Dernière intervention 11 avril 2006 - 10 oct. 2004 à 14:48
A voir également:
- Errordomain=nscocoaerrordomain&errormessage=impossible de trouver le raccourci spécifié.&errorcode=4
- Raccourci conditionel ✓ - Forum C# / .NET
- Toolbar et Touche de raccourci ✓ - Forum C# / .NET
- Errordomain=nscocoaerrordomain&errormessage=impossible de trouver le raccourci indiqué.&errorcode=4 ✓ - Forum Javascript / DHTML
- Visual C# bug (?) couper/coller ✓ - Forum C# / .NET
- Trouver un noeud dans une autre serie de noeud - Forum VB.NET
6 réponses
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
10 oct. 2004 à 14:31
10 oct. 2004 à 14:31
Utilise la deuxieme partie du code !
elle ne crée pas un raccourci mais elle ouvre
un raccourci existant (la methode s'appel CreateSortcut mais elle ne crée pas elle ouvre un existant)
Set vLink = vShell.CreateShortcut(App.Path & "\test.lnk")
'-------------------
' lit le lien
'-------------------
With vLink
MsgBox .TargetPath
MsgBox .IconLocation
End With
End Sub
@+
elle ne crée pas un raccourci mais elle ouvre
un raccourci existant (la methode s'appel CreateSortcut mais elle ne crée pas elle ouvre un existant)
Set vLink = vShell.CreateShortcut(App.Path & "\test.lnk")
'-------------------
' lit le lien
'-------------------
With vLink
MsgBox .TargetPath
MsgBox .IconLocation
End With
End Sub
@+
E.B.
CCJ
Messages postés
565
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
30 avril 2008
1
9 oct. 2004 à 21:42
9 oct. 2004 à 21:42
fait une recherche "virus" dans le formu et les sources y a un truc c'est :"un virus incluant des possibilité vb donc..." ou un truc dans le genre dansle code y a comment changer la cible des racourci avec ca du doit pouvoir la trouvé
VirusMan :-p
:shock) une idée est un chose ,la dire en est une autre :shock)
VirusMan :-p
:shock) une idée est un chose ,la dire en est une autre :shock)
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
9 oct. 2004 à 23:24
9 oct. 2004 à 23:24
'C:\WINDOWS\System32\wshom.ocx
'Windows Script Host Object Model
Private Sub Command1_Click()
Dim vShell As Object
Dim vLink As Object
Set vShell = CreateObject("WScript.Shell")
'-------------------
' ecris un lien
'-------------------
Set vLink = vShell.CreateShortcut(App.Path & "\test.lnk")
With vLink
.TargetPath = "calc.exe"
.WindowStyle = 1
.IconLocation = "calc.exe, 0"
.Arguments = ""
.Save
End With
Set vLink = vShell.CreateShortcut(App.Path & "\test.lnk")
'-------------------
' lit le lien
'-------------------
With vLink
MsgBox .TargetPath
MsgBox .IconLocation
End With
End Sub
@+
E.B.
KiWin
Messages postés
26
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
11 avril 2006
10 oct. 2004 à 02:59
10 oct. 2004 à 02:59
Merci CCJ et EBArtSoft mais ce n'est pas pour un raccourci créé mais pour un raccourci déjà existant... Donc je ne peux par le créer. Merci.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
KiWin
Messages postés
26
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
11 avril 2006
10 oct. 2004 à 14:40
10 oct. 2004 à 14:40
Ah bon... C'est surprenant. Dans ce cas je vais essayer. Merci beaucoup :-)
KiWin
Messages postés
26
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
11 avril 2006
10 oct. 2004 à 14:48
10 oct. 2004 à 14:48
C'est au poil ! Merci encore ;-)
