Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datei öffnen als Binary
Autor: _Nick
Datum: 05.02.03 14:06
Hallo, danke erst mal für deine superschnelle Antwort. Habs mal so versucht klappt aber nicht: Option Explicit Dim Nr As Integer Dim Text As String Private Sub cmdLaden_Click() Dim F As Integer Dim sByte As String * 1 cdl.ShowOpen If cdl.FileName = "" Then Exit Sub lblName.Caption = cdl.FileTitle Nr = FreeFile 'Frei Dateinummer txtText.Text = "" 'Textfeld leeren Open cdl.FileName For Binary As #F 'Datei Öffnen Do While Not EOF(F) Get #F, , sByte txtText.Text = txtText.Text & vbCrLf & Chr$(sByte) ' Jetzt verschicken Loop Close #F 'Datei schließen End Sub Bekomme immer Laufzeitfehler Datei oder Nummer falsch. THX Nick

Datei öffnen als Binary	307	_Nick	05.02.03 13:45
Re: Datei öffnen als Binary	862	Dieter	05.02.03 13:48
Re: Datei öffnen als Binary	173	_Nick	05.02.03 14:06
Re: Datei öffnen als Binary	717	Ne kölsche Jung	05.02.03 14:23
Re: Datei öffnen als Binary	759	Dieter	05.02.03 14:26
Re: Datei öffnen als Binary	196	_Nick	05.02.03 16:25
Re: Datei öffnen als Binary	180	_Nick	05.02.03 16:42
Re: Datei öffnen als Binary	176	_Nick	05.02.03 16:31
Re: Datei öffnen als Binary	174	_Nick	18.02.03 09:58
Re: Datei öffnen als Binary	653	illuminator	18.02.03 12:28
Re: Datei öffnen als Binary	166	_Nick	18.02.03 13:41
Re: Datei öffnen als Binary	679	illuminator	18.02.03 14:52
Re: Datei öffnen als Binary	186	_Nick	18.02.03 15:11

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen