raccourcis target
Publié : mer. 12/juil./2017 14:27
voici une petite procedure qui peut lire un raccourci , pour retrouver vers quel chemin, il pointe
(sans avoir a utiliser le OpenFilerequester() pour ça )
il faut lui donner le chemin du raccourci en dur, car l'utilisation de OpenFileRequester par exemple, "interprete" le raccourci
donc en sortie de OpenFilerequester, vous n'aurez pas le chemin du raccourci, mais le chemin sur lequel le raccourci pointe ..
je scan le fichier raccourci.LNK pour retrouver le chemin vers lequel il redirige ...
(sans avoir a utiliser le OpenFilerequester() pour ça )
il faut lui donner le chemin du raccourci en dur, car l'utilisation de OpenFileRequester par exemple, "interprete" le raccourci
donc en sortie de OpenFilerequester, vous n'aurez pas le chemin du raccourci, mais le chemin sur lequel le raccourci pointe ..
je scan le fichier raccourci.LNK pour retrouver le chemin vers lequel il redirige ...
Code : Tout sélectionner
Declare.s get_raccourci_path(nomfichier$ ) ; Nomfichier$ doit etre le chemin vers un raccourci (*.LNK)
; on choisi un fichier *.lnk ne pas utiliser OpenFilerequester car celui ci "interprete le raccourcis"
Raccourci$="charge_image dans window_screen.pb - Raccourci"+".lnk"
NomFichier$=get_raccourci_path(Raccourci$)
debug "le raccourci pointe ver ce chemin : " + NomFichier$
Procedure.s get_raccourci_path(NomFichier$ )
; By Dobro
;lit le chemin pointé par le raccourci
file=1
compteur=1
OpenFile(file,NomFichier$ )
While Eof(file) = 0
compteur=compteur+1
string.s=ReadString(file,#PB_UTF8)
If FindString(String.s,":\")
extrait.s=ReverseString(string.s)
extrait.s=Stringfield(extrait.s,1,"\")
extrait.s=ReverseString(extrait.s)
if extrait.s=StringField(NomFichier$,1," -")
ProcedureReturn string.s
Endif
Endif
Wend
CloseFile(file)
EndProcedure
