title image


Smiley Also, um dev genüge zu tun...
Gehen wir davon aus, dass du VB6 benutzt und dass deine ListBox "List1" heißt:



Speichern:



Dim Datei As String

Dim ff As Integer

Dim i As Integer



Datei="d:\irgendwas\wasanderes.txt"



ff=FreeFile()



Open Datei For Output As ff

For i=0 To List1.ListCount - 1

Print #ff, List1.List(i)

Next i

Close ff





Datei auslesen:





Dim Datei As String

Dim Zeile As String

Dim ff As Integer

Dim i As Integer



Datei="d:\irgendwas\wasanderes.txt"



ff=FreeFile()



Open Datei For Input As ff

Do While Not EOF(ff)

Line Input #ff, Zeile

List1.AddItem Zeile

Loop

Close ff



Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: