Imports System.IO.Path
Imports System.IO
 
Module DATschreiben
    Public Sub DATerzeugen()
        Dim File As File = Nothing
        Dim strTempPath As String
 
        ' TEMP-Verzeichnis ermitteln: 
        strTempPath = IO.Path.GetTempPath       
 
        Dim Writer As StreamWriter
 
        Writer = New StreamWriter(strTempPath & "Gesamt.dat", True, _
          Text.Encoding.UTF8)
        Writer.WriteLine("")
        Writer.WriteLine("[ADD1]")
        Writer.WriteLine("FIRMA;" & "STRASSE;" & "HAUSNUMMER;" & "PLZ;" & _
          "ORT;")
        Writer.WriteLine(";" & ";" & ";" & ";" & ";")
        Writer.Close()
    End Sub
End Module