29. März 2024, 06:56
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0414
  VB6: Open for Binary Output -> unerklärlicher Fehler
 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.O
Function 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
[ VB-/VBA-Forum | Archiv 0414 | Archiv-Übersicht ]
 Antworten
VB6: Open for Binary Output -> unerklärlicher Fehler - Joe 06. November 2008 um 17:18:59
Re: Open for Binary Output -> unerklärlicher Fehler - Neptun 06. November 2008 um 23:20:46
Re: Open for Binary Output -> unerklärlicher Fehler - Joe 10. November 2008 um 20:22:09
Re: Open for Binary Output -> unerklärlicher Fehler - Gaga 11. November 2008 um 10:39:50
Re: Open for Binary Output -> unerklärlicher Fehler - Joe 11. November 2008 um 21:11:27
Re: Open for Binary Output -> unerklärlicher Fehler - Gaga 11. November 2008 um 21:19:06
Re: Open for Binary Output -> unerklärlicher Fehler - Neptun 10. November 2008 um 20:27:01
Re: Open for Binary Output -> unerklärlicher Fehler - Joe 10. November 2008 um 21:31:36

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum