Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const CreateFalse = False, CreateTrue = True
Const Tristatefalse = 0, Tristatetrue = -1, TristateUseDefault = -2
Dim ts,f,fso,fs,Filename
On Error Resume Next
Filename = "C:\CSV\Werte.csv"
Set fso=CreateObject("Scripting.FileSystemobject")
Set fs=CreateObject("wScript.Shell")
If Not fso.FileExists(Filename) Then
fso.CreateTextFile Filename
Set f = fso.GetFile(Filename)
Set ts = f.OpenAsTextStream(8, -2)
ts.WriteLine "Datum;"&"Uhrzeit;"&"Actual_Value[°C]"
If SmartTags ("SCript_Start" ) = True Then
ts.WriteLine CStr(Date) & ";" & CStr(Time) & ";" & SmartTags("Messwerte.Actual_Value")
ts.Close
End If
Else
Set f = fso.GetFile(Filename)
Set ts = f.OpenAsTextStream(8, -2)
If SmartTags ("SCript_Start" ) = True Then
ts.WriteLine CStr(Date) & ";" & CStr(Time) & ";" & SmartTags("Messwerte.Actual_Value")
ts.Close
End If
End If
If Err.Number <> 0 Then
ShowSystemAlarm "Error in Skript" & Err.Number & " " & Err.Description
Err.Clear
Exit Sub