TIAWINCC Skript - Dateien älter X Tage löschen

[TIA_TESTER]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo zusammen,

ich schreibe mittels Skript prozesswerte in csv dateien. Diese heißen immer mal anders und es werden unregelmäßig neue .csv Datein erstellt.

hat jemand ein Programmierbeispiel wie ich ein Skript schreibe das mir alle Dateien älter X Tage in den entsprechenden Datei-Pfaden löscht?

Danke euch schonmal,

Gruß TiaTester

 

[PN/DP]

Auf welchem HMI soll Dein Skript laufen?

In einer While-Schleife mittels Dir-Methode nacheinander alle vorhandenen Dateien auflisten lassen, mit FileDateTime (oder DateLastModified) das Dateiänderungsdatum lesen und mit Deinem X-Datum vergleichen und ggf. löschen mit Kill (oder DeleteFile).
Alle "Einzelteile" dazu findest Du in diesem Skript
WinCC flexible VBScript WinCE Move *.* bzw. Dateien kopieren

Weitere Skriptbeispiele findest Du mit der Forumssuche mit dem Suchbegriff "fso.dir"

Welche VBS-Informationen und VBS-Programmierhilfen gibt es in WinCC (TIA Portal)?

Harald

 

[TIA_TESTER]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo und Danke,

Auf eine TP900Comfort.

ich werde mir das ganze mal zugemüte führen was du mir gepostet hast. Dankeschön!

Gruß TT

 

[TIA_TESTER]

Hallo,

ich muss das ganze schnellstens hinbekommen und finde nicht wirklich zeit mich mit den vb befehlen auseinander zu setzten, ich hab jetzt folgendes und es würde mir die Dateien in ein anderes Verzeichniss kopieren.

On Error Resume Next
Dim f,fs,t_net_path,t_root_path
t_net_path = "\Storage Card USB\Backupalt\"
t_root_path = "\Storage Card USB\Backup\"

Set f= CreateObject("filectl.file")
Set fs = CreateObject("filectl.filesystem")
If fs.dir (t_net_path) <> "" Then
 fs.kill t_net_path&"\datei.csv"
 fs.filecopy t_root_path & "\datei.csv", t_net_path&"\datei.csv"
End If

Klappt auch, aber wie kann ich alle dateien aus "\Storage Card USB\Backup\" kopieren und nicht nur eine? "*.csv" funktioniert nicht. sollte es das?

Ich würde einfach den Backupalt ordner löschen und anschließend die Daten aus Backup rüberschieben. Das ganze gesteuert vom Aufgabenplaner alle X Tage. Entspricht zwar nicht ganz der Aufgabenstellung aber sollte gehen.

Habt ihr noch auf die schnelle eine Idee?

Das es nicht das wahre ist dinge zu tun die man nicht versteht weis ich

Gruß TT

 

[Larry Laffer]

Hallo,
ich glaube nicht, dass das die Lösung deines Problems ist - aber bitte sehr.
Selbst habe ich die Erfahrung gemacht, dass wenn man etwas nicht gleich einigermaßen (!?) vernünftig macht es einen immer wieder (und meißt sehr schnell) wieder einholt.

Was ist an dem von Harald vorgeschlagenen Weg so fürchterlich kompliziert ?

Gruß
Larry