vbs: nur neueste dateien behalten

haiko · 13.09.2011

ich hab mal ne kleine frage, die einige von euch wahrscheinlich in nullkommanix beantworten können:

ich habe folgende vbs:

Code:

Option Explicit
Dim intZahl 
Dim strExtension 
Dim intTage 
Dim objDatei  
Dim objFSO  
Dim objOrdner  
Dim strOrdner 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = "\\MyBookLive\Acronis"
strExtension = "TIB"
intTage = 3
 
Set objOrdner = objFSO.GetFolder(strOrdner)
intZahl = 0
For Each objDatei In objOrdner.Files
    If LCase(Right(objDatei.name, Len(strExtension))) = LCase(strExtension) _
        And DateDiff("d", objDatei.DateCreated, Now) > intTage Then
        objDatei.Delete
        intZahl = intZahl + 1
    End If
Next

objFSO.MoveFile "E:\AcronisBackupTemp\*.TIB", "\\MyBookLive\Acronis"

das ganze funktioniert soweit ganz gut (löscht dateien im zielverzeichnis, die älter als 3 tage sind und verschiebt neue dateien in das zielverzeichnis).

jetzt würde ich aber gern das löschen nicht auf das absolute alter beziehen (älter als 3 tage), sondern es sollen immer die drei neuesten dateien behalten werden unabhängig vom dateialter.

hat jemand eine ahnung wie ich das am besten lösen kann?

counterstrike17 · 13.09.2011

ich kann jetz kein vb würde aber sagen dass du intTage = 3
durch etwas wie intLetzteDrei = "Definition der 3 letzten" ersetzen muss.
Hoffe du konntest folgen

haiko · 13.09.2011

counterstrike17 schrieb:
ich kann jetz kein vb würde aber sagen dass du intTage = 3
durch etwas wie intLetzteDrei = "Definition der 3 letzten" ersetzen muss.
Hoffe du konntest folgen

schon klar, aber das ist ja die frage. wie geht das unter vb? wie lass ich alles löschen ausser den 3 aktuellsten?
hab schon überlegt das irgendwie mit nem array zu lösen, aber dazu müßt ich mich dann erst mehr mit vbs beschäftigen

the ubm · 13.09.2011

Wenn du weißt wie Arrays gehen, machst du einfach ein Array, schreibst in dieses die Datums + Dateiname, sortierst dieses nach Dateidatum absteigend und beginnst mit dem Löschen des 3. Elements im Array.

haiko · 13.09.2011

noch weiß ich nicht wie arrays in vb gehn oder wie man das dann sortiert, aber das finde ich auch noch raus

hatte halt gehofft, irgendjemand hier hat ahnung von vbs und ich kann mir das suchen und rumprobieren ersparen

cmddegi · 14.09.2011

Hab kurz nachgesehen; VBScript hat offenbar keine eingebaute Funktion zum Sortieren. Du könntest dir aber natürlich einen einfachen Sortieralgorithmus für Arrays besorgen, oder das ganze auch ohne Arrays direkt hier einbauen.

Eine Möglichkeit wäre, zuerst die drei neuesten Dateien zu suchen, und dann alle anderen zu löschen.
D.h. einfach eine Liste (drei Variablen) für die drei neuesten Dateien. Die Schleife läuft durch und fügt den Namen der aktuellen Datei an passender Stelle in die Liste ein, wobei sie ggfs. die existierenden Felder (also das zu ersetzende und die älteren) nach hinten verschiebt. Das passiert dann, wenn das Datum der aktuellen Datei neuer ist als das der Datei an der besagten Stelle in der Liste, oder der Listenplatz noch frei ist.
Dann einfach nochmal die Liste durchgehen und die Dateien löschen, wenn sie nicht in der Liste stehen.
Weniger elegant aber einfacher: Du kannst natürlich auch einfach dreimal alle Dateien durchgehen. Zuerst findest du die neueste Datei (einfach mit der ersten initialisieren und updaten wenn die aktuelle Datei neuer ist). Beim zweiten Durchlauf machst du das gleiche, aber lässt die vorher gefundene Datei aus; damit kriegst du die zweit-neueste. Dritter Schritt dann analog (erste und zweite auslassen).

Sinnvollerweise sollte die Suche natürlich ausgiebigst getestet werden, bevor man den Teil mit der Löschung implementiert.

vbs: nur neueste dateien behalten

haiko

counterstrike17

haiko

the ubm

haiko

cmddegi

vbs: nur neueste dateien behalten

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums