Dim f,fs,datei,datum,laenge
Set f= CreateObject("filectl.file")
Set fs = CreateObject("filectl.filesystem")
'abfrage ob ein verzeichnis existiert
'If fs.dir("storage card2\daten") = "" Then fs.mkdir("storage card2\daten")
datei="storage card2\Log_Hydrowatt.csv"
datum="20"&Right(Date,2)&"."&Mid(Date,4,2)&"."&Left(Date,2)
If fs.dir(datei) = "" Then
f.open datei, 2
f.LinePrint "Statistik Hydrowatt HD-Pumpe"
f.LinePrint "Datum (JJJJ.MM.TT);"&"Uhrzeit;"&"Schaltspiele;"&"Betriebsstunden [h];"&"Pumpe auf Druck [h];"&"Bollfilter"
f.LinePrint "Datum;"&"Zeit;"&"Schaltsp.;"&"Betr.Std[h];"&"P.auf Druck[h];"&"Bollfilter"
f.Close
End If
f.open datei, 8
f.LinePrint Datum&";"&Time&";"&Schaltspiele_Hydrowatt_täglich&";"& Betriebsstunden_hydrowatt_heute&";"& Betriebsstunden_hydrowatt_druck_heute&";"&Schaltspiele_Bollfilter_täglich
f.Close