Dim fiBatErzeugen As IO.FileInfo
 
' *.txt wird erzeugt und der Name wird aus der TextBox6 entnommen
' TextBox6 enhält den Name der txt-Datei
fiBatErzeugen = New IO.FileInfo("C:\" & TextBox6.Text & ".txt")
' Datei wird erzeugt
fiBatErzeugen.Create()
 
Dim sw As IO.StreamWriter = fiBatSchreiben.CreateText()
sw.WriteLine("test")
sw.Flush()
sw.Close()