title image


Smiley Re: Also, um dev genüge zu tun...
Also ich hab bis jetzt bei Speichern geschrieben:



Dim "D:\Dokumente und Einstellungen\Reißig\Carsten" As Integer

Dim Freefile As Integer

Dim i As Integer



Open "D:\Dokumente und Einstellungen\Reißig\Carsten" For Output As Freefile

For i=0 List1.Listcount - 1

Print # Freefile, List 1.List(i)

Next i

Close Freefile



Bei Öffnen:



Dim "D:\Dokumente und Einstellungen\Reißig\Carsten" As String

Dim Zeile As String

Dim Freefile As Integer

Dim i As Integer



Open "D:\Dokumente und Einstellungen\Reißig\Carsten" For Input As Freefile

Do While Not EOF (Freefile)

Line input # Freefile, Zeile

List1. Additem Zeile

Loop

Close Freefile



Danke im Vorraus!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: