'PARAMETER IN DATEI SCHREIBEN
'
' INTERNE VARIABLE:
'
Dim fso, f, ts, Dateiname, IZeit, IDate, VZ_NAME
Set fso = CreateObject ("Scripting.FileSystemObject")
' DATUM UHR VON SPS
IDate = Date
IZeit = Time
' VERZEICHNIS
VZ_NAME = SmartTags("DATEIABLAGE")
' Verzeichnis erzeugen (Objekt erzeugen)
Set fso = CreateObject("Scripting.FileSystemObject")
'Prüfung ob das Verzeichnis existiert
If Not fso.FolderExists(VZ_NAME) Then ' Wenn es nicht existiert, dann anlegen
fso.CreateFolder (VZ_NAME)
Else 'Fehlermeldung ausgeben
End If
' Schreiben zu Internem Medium. Vorwahl über Bildschirmgrafik.
Dateiname = SmartTags("DATEIABLAGE") & SmartTags("Datensatz") & ".csv"
' CSV-DATEI ANLEGEN UND SPALTENÜBERSCHRIFTEN EINTRAGEN
If Not fso.FileExists(Dateiname) Then
fso.CreateTextFile (Dateiname)
Set f=fso.GetFile(Dateiname)
Set ts=f.OpenAsTextStream(8,-2)
ts.WriteLine ("DATUM ; UHRZEIT ; AKT. BENUTZER ; UEBERSCHRIFT1 ; UEBERSCHRIFT2 ; UEBERSCHRIFT3 ; UEBERSCHRIFT4; UEBERSCHRIFT5")
ts.Close
End If
' VARIABLEN IN CSV-DATEI SCHREIBEN
Set f=fso.GetFile(Dateiname)
Set ts=f.OpenAsTextStream(8,-2)
ts.WriteLine (IDate & ";" & IZeit & ";" & SmartTags("USER") & ";" & SmartTags("VARIABLE1") & ";" & SmartTags("VARIABLE2") & ";" & SmartTags("VARIABLE3") & ";" & SmartTags("VARIABLE4")& ";" & SmartTags("VARIABLE5"))
ts.Close
Set ts = Nothing
Set f = Nothing
Set fso = Nothing
Set Dateiname = Nothing
Set IZeit = Nothing
Set IDate = Nothing
Exit Sub