'Inhalt einer Text-Datei Lesen Nr = FreeFile Dateiname = "`meine.bat" 'Inhalt von Textfeld schreiben Open Dateiname For Append As #Nr Print #Nr, Text1 Close #Nr