Sujet Précédent Sujet Suivant

Retrouver la cible d'un raccourci : la solution de int19h

sebmaurice - 29 juin 2001 à 16:19
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 20 août 2007 à 11:26

Function PathFile(z$) As String

Open z$ For Binary As #1
s$ = Input$(LOF(1), #1)
Close

Do While s$ <> ""
i$ = Mid$(s$, 1, InStr(s$, Chr$(0)) - 1)
If InStr(i$, ":") Then If InStr(1, i$, "#") 0 Then PathFile i$: Exit Do
End If
s$ = Mid$(s$, InStr(s$, Chr$(0)) + 1)
Loop

End Function

Private Sub Command1_Click()
'Mettre le chemin du raccourci ici :
z$ = ""
MsgBox PathFile(z$)
End Sub

Merci encore à int19h pour son aide

A voir également:

1 réponse

Réponse 1 / 1

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
20 août 2007 à 11:26

Cette discussion a été cloturée. Veuillez lancer une nouvelle discussion si votre question est toujours d'actualite.

Merci

Discussions similaires

changement de la cible d'un raccourci

pb de connexion entre client et serveur

Autoriser une connexion SQL sur 1 server

connexion a la base de donnée (compte sa)

Problème TcpClient et socket