Vad ger det att öppna en fil i binärfilsläge?
Varför får jag inte in något i variabeln fDAta ur en binärfil om jag skriver:

open "blaha" for binary as #1

get #1, 1, fData
text1 = fdata
close #1

Hej
Du måste tala om hur många bytes du vill ha
alltså lägga upp en buffer.

open "blaha" for binary as #1
Dim fData As String * 32
'kommer att hämta de första 32 byten i filen
Get #1, 1, fData
text1 = fdata
close #1

Sven

Tja eller om man vill läsa in hela klabbet i en sträng på en gång så går det ju sketabra att göra så här.

Option Explicit

Public Function readEntireFile(ByVal fileName As String) As String
If Dir(fileName) <> "" Then
Dim fN As Integer
Dim ch As Byte
fN = FreeFile()
Open fileName For Binary Access Read As #fN
While Not EOF(fN)
Get #fN, , ch
readEntireFile = readEntireFile & Chr(ch)
Wend
Close #fN
End If
End Function

Private Sub Command1_Click()
Dim filData As String
MsgBox readEntireFile("c:\windows\tips.txt")
End Sub


/peterh

Hmm det hör har funkat bra för mig .. lite snabbare och mindre kod :

<code>

Private Function ReadFile(ByVal FullPath As String) As String
Dim handle As Integer
handle = FreeFile

If Not Dir(FullPath) <> "" Then Exit Function

Open FullPath For Binary As #handle
ReadFile = Space$(LOF(handle))
Get #handle, , ReadFile
Close #handle
End Function

</code>