Function txt_laden_und_speichern()
Dim count As String
On Error Resume Next
If i = "" Then
i = 0
Text8.Text = i + 1 ' ist für die nummerierung der dateien
i = Text8.Text
End If
count = List1.ListCount
If i < count Then
 
Text6.Text = List1.List(i) ' dateiname in eine textbox anzeigen
 
DNr = FreeFile
Rem <==txt source öffnen anfang==>
Path$ = "c:\win99" + "\" + Text6.Text
Text7.Text = Path$ 'path in eine textbox anzeigen
Open Path$ For Input As #DNr
Text3.Text = Input(LOF(DNr), #DNr) ' dateiinhalt in einer textbox anzeigen
If Err Then MsgBox Error(Err)
Close #DNr
Rem <==txt source öffnen ende==>
 
speichern ' ruft das speichern script auf
Text8.Text = i + 1 ' nummeriert +1
i = Text8.Text ' zeigt nummer an
End If
End Function