[WinCC flex] Datei löschen

xXyYzZ

Level-1
Beiträge
67
Reaktionspunkte
1
Zuviel Werbung?
-> 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?

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"
 
Hallo,
du solltest es vielleicht so machen :
Code:
sDir = "\Storage Card MMC"
'DELETE ALARM____________________________________________________________________
sFile = sDir & "\Archive\Archive_Alarm\Archive_Alarm0.rdb"
myFile = fso.Dir(sFile)
If myFile <> "" Then
    fso.Kill myFile
   ' fso.MoveFile sFile, sFile & ".old"  ' <- den Sinn dieser Zeile verstehe ich nicht ...!!!
End If
Gruß
Larry
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Sehr komisch, hab mich auf die Hilfe verlassen...

Code:
ParametersFilesystem
Reference to a FileSystem control.
Pathname
Required. String expression that specifies one or more file names to be deleted. The pathname can include the directory or folder.

Dachte, der Pfad als Angabe für den >>Kill<< Befehl reicht.
Die zweite Zeile war nur für mich zum "Testen" gedacht. Ist im endgültigen Skript natürlich überflüssig!

Aber auch mit Deinen Ändeurngen funktioniert es nicht. Die Datei wird nicht gelöscht, verschieben ist aber möglich...

EDIT:

Habe die Lösung!

Code:
fso.SetAttr sFile, 0
 
Zuletzt bearbeitet:
Zurück
Oben