Lese von Text Datei [VB6]

[CrimeTime]

Hallo ,

ich hab folgendes Problem,
wie schreibt man in VB6 das er aus einer Text Datei den Inhalt lesen soll

~Beisp. so soll in etwa es aussehen wie er es sendet

FrmMain.SckCon(index).SendData " hier soll der Pfad stehen wo er die text Datei findet"

und das ich halt nur eine text Datei erstelle die er dann ausliest.

Hoffe jemand kann mir helfen

Gruss CrimeTime

 

[DevHB]

Hi,

Dim FNr As Interger
Dim s    As String
Dim sFile As String

sFile = "C:\DeineDatei.txt"

FNr = FreeFile

Open sFile For Input As #FNr
While (Not(EOF(FNr)))
    Line Input #FNr, s
Wend

Call FrmMain.SckCon(index).SendData(s)

 

[CrimeTime]

um die Datei zu lesen muss ich dann nur noch diesen Code einfügen?

Call FrmMain.SckCon(index).SendData(s) "sFile = "C:\DeineDatei.txt""

~Sorry bin neu auf diesem gebiet

 

[DevHB]

Ne,

in der Variable "s" steht der Pfad.

Call FrmMain.SckCon(index).SendData(s)