problemer med å hente path

[Scix]

Kva heiter den fila som er markert i ein FilListBox?

[aadnk]

Du kan bruke følgende funksjon for å hente gjeldende fils sti:

 

Public Function GetSelectedFile(FileBox As FileListBox) As String

If FileBox.ListIndex < 0 Then
   Exit Function
End If

GetSelectedFile = FileBox.Path & IIf(Right(FileBox.Path, 1) = "\", "", "\") & FileBox.FileName

End Function

 

Du kaller funskjonen omtrentlig slik:

 

MsgBox GetSelectedFile(File1)

[Scix]

var volsome greier dette

korleis skal eg legge denne fila in i ein slik komando?

Open App.Path &....... For Binary As Free
Get #1, , Data
Close Free

[aadnk]

Hvis du skal åpne en fil som står i FileListBoxen setter du først funksjonen inn i formen, og følgende kode vil fungere:

 

Open GetSelectedFile(File1) For Binary As Free
Get #1, , Data
Close Free

[Scix]

får feilmeldingen "Bad file name or number" for denne linga

Open GetSelectedFile(File1) For Binary As Free

[aadnk]

Det kan lønne seg å sjekke om GetSelectedFile returnerer en korrekt sti eller ikke, så bruk denne koden.

 

Dim strPath As String, Free As Long, Data As String

strPath = GetSelectedFile(File1)
If strPath = "" Then Exit Sub

Free = FreeFile

Open strPath For Binary As Free
   Data = Space(LOF(Free))
   Get #Free, , Data
Close Free

 

Dessuten, når du bruker For Binary til å fylle en streng med data, må denne allokeres til den rette størrelsen. Derfor har jeg lagt til Space linjen.

[Scix]

hehe. Super tabbe fra mi side. hadde fjerna koden Free = FreeFile

 

[GeirGrusom]

Du kan uansett ikke gjære slik, dvs "Open Filename For Binary As FreeFile"

 

Siden FreeFile vil bli lik 2 nå du skal lukke file igjen.