Open App.Path + "\FileListe\Fileliste.txt" For Input As #1 'datei öffnene
 
Do While Not EOF(1)   ' Auf Dateiende abfragen.
'DoEvents 'rechenzeit abgeben
 
MSFlexGrid1.AddItem " " 'leere zeile hinzufügen
'es werden dann die eingelesenden daten aus der Textbox in diese
'leerzeilen geschrieben
MSFlexGrid1.RowHeight(zähler) = 1500'Gibt die Höhe der angegebenen Zeile 
' inTwips zurück oder legt sie fest.
 
MSFlexGrid1.Col = 0  'gibt die aktuelle spalte an
MSFlexGrid1.Row = zähler 'gibt die zellen an
Line Input #1, Username 'liest eine ganze zeile 
 
MSFlexGrid1.Text = Username 'in das grid schreiben
'
MSFlexGrid1.Col = 1  'gibt die aktuelle spalte an
Line Input #1, Rubrikennummer
MSFlexGrid1.Text = Rubrikennummer
'
MSFlexGrid1.Col = 2  'gibt die aktuelle spalte an
Line Input #1, Rubrikenname
MSFlexGrid1.Text = Rubrikenname
'
MSFlexGrid1.Col = 3  'gibt die aktuelle spalte an
Line Input #1, Filename
MSFlexGrid1.Text = Filename
'
MSFlexGrid1.Col = 4  'gibt die aktuelle spalte an
Line Input #1, Filegröße
MSFlexGrid1.Text = Filegröße
'
MSFlexGrid1.Col = 5  'gibt die aktuelle spalte an
Line Input #1, Datum
MSFlexGrid1.Text = Datum
'
MSFlexGrid1.Col = 6  'gibt die aktuelle spalte an
Line Input #1, Extension
MSFlexGrid1.Text = Extension
'
MSFlexGrid1.Col = 7  'gibt die aktuelle spalte an
Line Input #1, Beschreibung
MSFlexGrid1.Text = Beschreibung
 
 
Line Input #1, Leerzeile
zähler = zähler + 1 'ist für die Zelle erforderlich
 
Loop