Alte Dateien löschen

Simlock

Hallo,
ich möchte aus einem Ordner bei erreichen einer bestimmten Anzahl von Dateien die ältesten Dateien löschen, sodass ich z.B. immer die aktuellen 20 Dateien in dem Ordner habe. Bei den Datein handelt es sich um jpg's die von einem anderen Programm fortlaufend erstellt und gespeichert werden. Ich benötige aber zur Weiterverarbeitung nur die aktuellen x jpg's. Das Dateiformat sieht wie folgt aus:

2013-10-27_16-30-01.jpg
2013-10-27_16-40-01.jpg
2013-10-27_16-50-01.jpg

usw. ....

Ich habe schon Google bemüht aber nichts gefunden, was funktioniert. Da ich auch nicht gerade der Profi bin, was AutoIt betrifft, komme ich jetzt iw nicht weiter.
Vielleicht hat ja hier im Forum jemand eine Idee.

Gruß
Simlock

4ern

Ich denke das solltest du eher in "Programmieranfragen" posten.

Simlock

Falls das Thema hier so nicht hingehört, darf es gerne von einem Admin verschoben werden. Ansonsten freue ich mich auch über konstruktive Lösungsvorschläge.

Gruß
Simlock

**Schnitzel**

Mit dem Befehl bekommst du alle Dateien in einem Verzeichnis:

[autoit]

_FileListToArray()

[/autoit]

Und damit das Änderungs-/Erstellungdatum:

[autoit]

FileGetTime()

[/autoit]

Simlock

Schnitzel: Danke für die Antwort. Allerdings kann ich da so nicht viel mit anfangen. Vielleicht hättest Du da auch gleich ein passendes Beispiel, wie ich das denn nun anwenden muss. Angenommen, die jpg's liegen im Ordner D:\Test , wie muss ich die von Dir geschriebenen Befehle anwenden, damit die Dateien entsprechend gelöscht werden? Ich vermute, da gehört sicherlich mehr zu. Zur Info, ich habe mit AutoIt bisher nur Kleinigkeiten, wie Programme starten/beenden usw. gemacht. Das hier ist im Moment für mich komplett neu und da benötige ich schon etwas mehr Hilfe, als nur mal eben so zwei Befehle.

Gruß
Simlock

**Oscar**

Da Du ja ein fertiges Script haben willst, habe ich den Thread mal nach "Programmieranfragen" verschoben.

4ern

@Simlock tut mir Leid, wenn ich dich hier falsch interpretiert habe. Ich habe aus deinem Post herausgelesen, dass du nach einer fertigen Lösung suchst.

Fange doch einfach mal an dein gewünschtes Script zu schreiben und wenn du nicht mehr weiter kommst und einen Lösungsvorschlag für ein bestimmtes Problem möchtest, dann poste dies hier.

Wir sind nicht abgeneitgt dir zu helfen, ich sehe es aber nicht ein, ein komplettes Script unter dem Vorwand "Hilfe" für dich zu erstellen. Es sollte schon von dir erstellt werden und wenn du der Sprache noch nicht all zu mächtig bist, dann muss du diese lernen wie jeder andere hier, dafür gibt es Handbücher und eine Menge Tutorials.

Fang einfach und versuche dein Problem selber zu lösen.

Simlock

Das dürfte dann wohl schwer bis unmöglich für mich werden, da ich keinerlei Ansatz für eine Lösung habe. Mit Google habe ich ähnliche Lösungsvorschläge gesucht aber das funktioniert alles nicht. Ich versuche gerade aus diesem Script was zu machen, dass ich gefunden habe aber das scheint es wohl auch nicht zu sein.

Code

$TestFolder= "d:\test" 


$DirList=_FileListToArray($TestFolder) 
If @Error=1 Then 
MsgBox (0, " ", "Keine Dateien/Ordner gefunden. ") 
Exit 
EndIf 


if UBound($DirList) > 20 Then 
for $i = 20 to UBound($DirList) 
FileDelete($TestFolder & "" & $DirList[$i] & "/*") 
Next 
EndIf

Alles anzeigen

**Schnitzel**

Sieh dir das mal an:

[autoit]

#include <File.au3>

[/autoit][autoit][/autoit][autoit]

$sPath = "d:\test"; Verzeichnis in dem die Daten liegen
$iImages = 10; Anzahl der Dateien die übrig bleiben sollen

[/autoit][autoit][/autoit][autoit]

$aFiles = _FileListToArray($sPath, "*.jpg", 1)
If $aFiles[0] > $iImages Then
For $i = 1 To $aFiles[0] - $iImages
MsgBox(0,"Datei würde gelöscht werden:", $sPath & "" & $aFiles[$i])
;~ FileDelete($sPath & "" & $aFiles[$i])
Next
EndIf

[/autoit]

**Schnitzel**

Beitrag lässt sich nicht bearbeiten
In Zeile 9 und 10 fehlt natürlich der Backslash. Es gehört so:
MsgBox(0,"Datei würde gelöscht werden:", $sPath & "\" & $aFiles[$i])
;~ FileDelete($sPath & "\" & $aFiles[$i])

Zeile 10 ist kommentiert damit du erstmal überprüfst ob das script richtig arbeitet. Falls ja kannst du Zeile 9 löschen und Zeile 10 aktivieren

Simlock

Vielen Dank für das Script. Allerdings bekomme ich da eine Fehlermeldung.

Line 9
$sPath & "\" & $aFiles[$i])
$sPath^ERROR

Error: Expected a "=" operator in assignment statement.

Gruß
Simlock

Xenon

Hallo Simlock,

also normalerweise sollte da kein Fehler auftreten...
Mit der neuesten AutoIt-Version (3.3.8.1) funktioniert es einwandfrei, ich habe es getestet.
Hast du vielleicht eine ältere AutoIt-Version? (Aber ich glaube nicht, dass es daran liegen kann...)

Und Zeile 9 lautet bei dir wirklich so?
MsgBox(0,"Datei würde gelöscht werden:", $sPath & "\" & $aFiles[$i])

MfG Xenon

Simlock

Hallo Xenon,

AutoIt ist aktuell. Die Meldung kommt, sobald ich in der MsgBox auf "OK" klicke. Lösche ich Zeile 9, kommt die Fehlermeldung sofort.

Gruß
Simlock

Xenon

Hallo Simlock,

Deine Fehlermeldung lässt irgendwie vermuten, dass dein Script nicht das gleiche ist, wie das, was ich ausprobiert habe.
Lade dir einfach mal die .au3-Datei, die ich angehängt habe, herunter, passe den Pfad noch an und probiere es nochmal aus.
(Die Dateien werden jetzt auch wirklich gelöscht, wenn du das nicht willst, mache vor FileDelete noch ein Semikolon.)

Wenn es wieder nicht funktionieren sollte, dann poste bitte nochmal deine Fehlermeldung.

Eine andere Idee, woran es liegen könnte, habe ich leider nicht.

MfG Xenon

Simlock

Hallo Xenon,

jetzt hat es funktioniert. Vielen Dank für Deine Hilfe.

Gruß
Simlock

**Schnitzel**

Copy & Paste sollte man schon noch hinbekommen wenn schon die gesamte Lösung gepostet wird^^

x0r

Hoi,

ich hatte mir auch mal sowas gebaut, mit Code aus dem Forum:

[autoit]

#include <Array.au3>
#include <Date.au3>
#include <File.au3>

[/autoit][autoit][/autoit][autoit]

dim $days = 14
dim $cnt = 0

[/autoit][autoit][/autoit][autoit]

killfiles(@ScriptDir & "\SQLDiff\asp_security")

[/autoit][autoit][/autoit][autoit]

MsgBox(64,"Deleted",$cnt & " Files deleted!")

[/autoit][autoit][/autoit][autoit]

Func killfiles($sourceFolder)
$fileList = _FileListToArray($sourceFolder, "*", 1)
For $X = 1 To $fileList[0]
$Date = FileGetTime($sourceFolder & "" & $fileList[$X], 1, 0)
$fDate = StringFormat("%s/%s/%s %s:%s:%s", $Date[0], $Date[1], $Date[2], $Date[3], $Date[4], $Date[5])
If _DateDiff('d', $fDate, _NowCalc()) > $days Then
FileDelete($sourceFolder & "" & $fileList[$X])
$cnt += 1
EndIf
Next
EndFunc ;==>killfiles

[/autoit]

Dateien älter als $days Tage löschen.

Gruß,
x0r

Simlock

Hallo Schnitzel,

an Copy & Paste hat es nicht gelegen. Ich hatte ganz einfach das ;~ in Zeile 10 übersehen. Aber wenn man sich (noch) nicht richtig auskennt, passiert das schon mal.

Gruß
Simlock

Xenon

Schön, wenn es jetzt klappt. Ich hatte mich schon echt gewundert, wieso es bei dir nicht gehen sollte...

MfG Xenon

ChudovoTeam

Bei mir hat es auch geklappt