/ Forside/ Teknologi / Udvikling / VB/Basic / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Filnavn fra .lnk
Fra : CADmageren
Vist : 462 gange
200 point
Dato : 26-07-04 14:36

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


 
 
Kommentar
Fra : Karl_Smart


Dato : 26-07-04 15:17

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..

Kommentar
Fra : CADmageren


Dato : 26-07-04 15:31

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



Kommentar
Fra : Karl_Smart


Dato : 26-07-04 16:12

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

Kommentar
Fra : CADmageren


Dato : 26-07-04 16:36

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

/Michael



Accepteret svar
Fra : Phylock

Modtaget 200 point
Dato : 25-02-05 10:46

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`

Kommentar
Fra : CADmageren


Dato : 25-02-05 12:02

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

Dem kommer aldrig ned i If delen.

Michael



Godkendelse af svar
Fra : CADmageren


Dato : 23-01-06 08:28

Tak for svaret Phylock.

Du har følgende muligheder
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.
Søg
Reklame
Statistik
Spørgsmål : 173383
Tips : 31646
Nyheder : 719565
Indlæg : 6381823
Brugere : 218246

Månedens bedste
Årets bedste
Sidste års bedste