-> Hier kostenlos registrieren
Hallo,
ich möchte mit folgendem Skript auf meinem TP277 alte Logdateien löschen.
Das Ganze klappt aber nicht - der >>fso.Kill<< befehlt funktioniert nicht.
Das erkenne ich daran, dass die Datei immer noch da ist bzw. per >>fso.MoveFile sFile, sFile & ".old"<<
Bin ich zu dämlich und hab Tomaten auf den Augen oder warum klappt das nicht?
ich möchte mit folgendem Skript auf meinem TP277 alte Logdateien löschen.
Das Ganze klappt aber nicht - der >>fso.Kill<< befehlt funktioniert nicht.
Das erkenne ich daran, dass die Datei immer noch da ist bzw. per >>fso.MoveFile sFile, sFile & ".old"<<
Bin ich zu dämlich und hab Tomaten auf den Augen oder warum klappt das nicht?
Code:
On Error Resume Next
Dim fso, sDir,sFile
StopLogging hmiAlarmLog, "Archive_Alarm"
StopLogging hmiAlarmLog, "Archive_Operator"
CloseAllLogs
Set fso = CreateObject("FileCtl.FileSystem")
sDir = "\Storage Card MMC"
'DELETE ALARM____________________________________________________________________
sFile = sDir & "\Archive\Archive_Alarm\Archive_Alarm0.rdb"
If fso.Dir(sFile) <> "" Then
fso.Kill sFile
fso.MoveFile sFile, sFile & ".old"
End If
'DELETE OPERATOR_________________________________________________________________
sFile = sDir & "\Archive\Archive_Operator\Archive_Operator0.rdb"
If fso.Dir(sFile) <> "" Then
fso.Kill sFile
fso.MoveFile sFile, sFile & ".old"
End If
OpenAllLogs
StartLogging hmiAlarmLog, "Archive_Alarm"
StartLogging hmiAlarmLog, "Archive_Operator"