Von |
Joe |
Am |
06. November 2008 um 17:18:59 |
Frage |
Hi,
Kann mir vielleicht wer sagen, wo da der Fehler sein soll? Eigentlich sollte das doch so funktionieren? Bei mir aber irgendwie nicht o.OFunction GetData() Dim xIndex As Byte Dim i As Byte Dim s As String Dim j As Long Me.Caption = "Pls Wait" On Error GoTo Err0 s = "" i = 0 xIndex = FreeFile Open App.Path & "\Test.data" For Binary As #xIndex For j = 1 To LOF(xIndex) Get #xIndex, j, i s = s & Chr(i) Next j Close #xIndex Text1.Text = s Me.Caption = "Done" Exit Function Err0: Close #xIndex MsgBox "Auf Speicherdatei wird zugegriffen!" End Function (Info: LOF(xIndex) -> 43200
Bei mir zeigt er bei "Text1.Text" nur das erste Zeichen an. Die "Test.Data" Datei wurde nicht von mir erstellt. (Sollte aber eigentlich egal sein?!)
Gruß Jörg |
|