---

Hejsa

Jeg leder efter en metode til at finde den fil der gemmer sig bag en shortcut/genvej (.lnk)
Bruger Command.

Således at jeg kan bruge en genvejsfil til at kalde mit program.
Det skal helst være et API kald, da der ikke skal installeres nogle tredjeparts programmer.

/ Michael Christoffersen

---

Du kunne jo prøve at omdøbe .lnk filen til en .txt

Start > Kør > cmd > (Find en .lnk-fil) > rename "lnkfil.lnk" "lnkfil.txt"

that's all..

---

Næ Karl Smart - Så har jeg vist ikke forklaret mig godt nok.

Mit problem er præcis hvilken fil, som genvejen peger på!
Hvis jeg åbner den i notepad er det noget kryptisk.

/Michael

---

jamen er det ikke bare at højreklikke og tage egenskaber for lnk-filen og så se under "destination"???

---

Jo tak, men nu er det jo en programmerings opgave....

/Michael

---

hmmm det er en lille hurtig kode ... kan nok optimeres
-----------------------------------------------------

Dim FileData() As Byte

Private Sub Command1_Click()
Dim p As Long
For p = LBound(FileData) To UBound(FileData) - 6
Text1.Text = Text1.Text & vbCrLf & p & ":" & Hex(FileData(p)) & ":" & Chr(FileData(p))
If ((Hex(FileData(p)) = "10") And (Hex(FileData(p + 6)) = Hex(Asc(":")))) Then
Dim i
i = p + 5
Dim data As String
Do Until FileData(i) = 0
data = data + Chr(FileData(i))
i = i + 1
Loop
MsgBox data
End If
Next
End Sub

Private Sub Form_Load()
Dim i As Integer
Open "c:\install.lnk" For Binary As #1
ReDim FileData(1 To LOF(1))
Get #1, , FileData
Close #1
End Sub
-----------------------------------------------------
håber du kan bruge det
mvh
Phylock`

---

Hej Phylock. Har prøvet eksemplet, men synes ikke rigtig det spiller...

Dem kommer aldrig ned i If delen.

Michael

---

Tak for svaret Phylock.

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.