Dim fso, fs, datum, zeit, datei, datei_1, textfile1, Sollwerte
Sollwerte = SmartTags("Status_Allgemein\Freigabe_Schritt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = CreateObject("WScript.Shell")
If Not fso.FolderExists("C:\SPSLogbook") Then fso.CreateFolder("C:\SPSLogbook")
datei = "C:\SPSLogbook\SPS_Logdaten_vom_" & Date & ".txt"
datei_1 = "C:\SPSLogbook\SPS_Logdaten_vom_" & Date - 365 & ".txt"
If Not fso.FileExists (datei) Then
If fso.FileExists (datei_1) Then
fso.DeleteFile(datei_1)
End If
Set textfile1 = fso.CreateTextFile(datei, True)
textfile1.WriteLine "SPS Logdaten vom " & Date
textfile1.WriteLine "Folgende Variablen werden in dem Logfile gesichert:"
textfile1.WriteLine "Werte X1 ; Werte Z1 ; Werte Z2 ; Werte Z3 ; Werte Z4 ;"
textfile1.WriteLine
textfile1.Close
End If
If fso.FileExists (datei) Then
Set textfile1 = fso.OpenTextFile(datei, 8)
If Sollwerte Then
textfile1.WriteLine Time&"; SETPOS X1:; "& SmartTags("Achse_X1\Daten.Achse_X1.Status.Sollposition")&";"_
& " SETPOS Z1:; " & SmartTags("Achse_Z1\Daten.Achse_Z1.Status.Sollposition")&";"_
& " SETPOS Z2:; " & SmartTags("Achse_Z2\Daten.Achse_Z2.Status.Sollposition")&";"_
& " SETPOS Z3:; " & SmartTags("Achse_Z3\Daten.Achse_Z3.Status.Sollposition")&";"_
& " SETPOS Z4:; " & SmartTags("Achse_Z4\Daten.Achse_Z4.Status.Sollposition")&";"
textfile1.WriteLine Time&"; Luftkissen außen:; " & SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Sichtbarkeit_Button.S_B_Luftkissen_aussen")&";"_
& " Luftkissen innen:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Sichtbarkeit_Button.S_B_Luftkissen_innen")&";"_
& " Werkst. gelöst:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Werkstueck_loesen")&";"_
& " Werkst. gespannt:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Werkstueck_spannen")&";"_
& " Zentrierung unten:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentrierung_ab")&";"
textfile1.WriteLine Time&"; Zentrierung1 gelöst:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentriervor1_loesen")&";"_
& " Zentrierung1 gespannt:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentriervor1_spanne")&";"_
& " Zentrierung2 gelöst:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentriervor2_loesen")&";"_
& " Zentrierung2 gespannt:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentriervor2_spanne")&";"_
& " Zentrierung oben:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentrierung_auf")&";"
textfile1.WriteLine
textfile1.Close
Else
textfile1.WriteLine Time&"; ACTPOS X1:; "& SmartTags("Achse_X1\Daten.Achse_X1.Status.Istposition")&";"_
& " ACTPOS Z1:; "& SmartTags("Achse_Z1\Daten.Achse_Z1.Status.Istposition")&";"_
& " ACTPOS Z2:; "& SmartTags("Achse_Z2\Daten.Achse_Z2.Status.Istposition")&";"_
& " ACTPOS Z3:; "& SmartTags("Achse_Z3\Daten.Achse_Z3.Status.Istposition")&";"_
& " ACTPOS Z4:; "& SmartTags("Achse_Z4\Daten.Achse_Z4.Status.Istposition")&";"
textfile1.WriteLine Time&"; Luftkissen außen:; " & SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Sichtbarkeit_Button.S_B_Luftkissen_aussen")&";"_
& " Luftkissen innen:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Sichtbarkeit_Button.S_B_Luftkissen_innen")&";"_
& " Werkst. gelöst:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Werkstueck_loesen")&";"_
& " Werkst. gespannt:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Werkstueck_spannen")&";"_
& " Zentrierung unten:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentrierung_ab")&";"
textfile1.WriteLine Time&"; Zentrierung1 gelöst:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentriervor1_loesen")&";"_
& " Zentrierung1 gespannt:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentriervor1_spanne")&";"_
& " Zentrierung2 gelöst:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentriervor2_loesen")&";"_
& " Zentrierung2 gespannt:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentriervor2_spanne")&";"_
& " Zentrierung oben:; "& SmartTags("Status_Allgemein\Daten.Status_Allgemein.Status_Allgemein.Status_Endlagen.Endl_Zentrierung_auf")&";"
textfile1.WriteLine
textfile1.Close
End If
End If