Imports System.IO.Path
Imports System.IO
 
Module DATschreiben
    Public Sub DATerzeugen()
        Dim File As File = Nothing
 
        ' Stringvariable bereithalten 
        Dim strTempPath As String
 
        ' TEMP-Verzeichnis ermitteln: 
        strTempPath = IO.Path.GetTempPath
 
        ' Ausgabe ins Konsolenfenster 
        'MsgBox(strTempPath)
 
        ' Tabellen mit Streamwriter erstellen
        Dim Writer As StreamWriter
 
        Writer = New StreamWriter(strTempPath & "Gesamt.dat", True, _
          Text.Encoding.UTF8)
        Writer.WriteLine("[INFO]")
        Writer.WriteLine("[ADD1]")
        Writer.WriteLine("[FIRMA];" & "[STRASSE];" & "[HAUSNUMMER];" & "[PLZ];" _
          & "[ORT];")
        Writer.WriteLine(Hauptmenue.tbEformatA.Text & ";" & _
        Hauptmenue.tbEformatB.Text & ";" & ";" & ";" & ";")
        Writer.WriteLine("[ADD2]")
        Writer.WriteLine("[FIRMA];" & "[STRASSE];" & "[HAUSNUMMER];" & "[PLZ];" _
          & "[ORT];")
        Writer.WriteLine(Hauptmenue.tbEformatA.Text & ";" & _
        Hauptmenue.tbEformatB.Text & ";" & ";" & ";" & ";")
        Writer.Close()
 
 
        DocWriter()
 
 
    End Sub
End Module