Hallo,
bin ohne Erfahrung in VBS. Habe mir eine Backuplösung aus verschiedenen Quellen zusammen gestellt, nun habe folgendes VBS Problem:
Ich erstelle auf einem Externen Laufwerk mittels VBS ein Backup. Hierzu wird immer
ein neuer Ordner "jjjj-mm-dd" erzeugt in dem die gesicherten Datein liegen.
Mit der Zeit wird die Platte jedoch zu voll. Ich möchte daher nur die letzten 10 Ordner behalten, die anderen sollen gelöscht werden. Leider kann ich das nicht über die Datumsabfrage lösen da nicht jeden Tag ein Backup erstellt wird.
Hatte so angefangen:
Ich lese aus einem Textfile den Laufwerksbuchstaben aus und speichere den in der Variable B. Danach komme ich nicht weiter. Erstelle ein Object "fsoLoeschen".
Das Script soll nun alle Ordner sortieren und dann die ersten 10 behalten und den Rest löschen. Irgendwie muss ich die mit ein er FOR Each...NEXT Schleife zählen soviel habe ich bei "Schwichtenberg" gelesen.
Einfacher: Wie sortiere, durchlaufe und lösche ich Ordner in einem Verzeichniss so, dass ich nur die letzten 10 erstelten übrigbleiben?
Hat da jemand eine Idee?
bin ohne Erfahrung in VBS. Habe mir eine Backuplösung aus verschiedenen Quellen zusammen gestellt, nun habe folgendes VBS Problem:
Ich erstelle auf einem Externen Laufwerk mittels VBS ein Backup. Hierzu wird immer
ein neuer Ordner "jjjj-mm-dd" erzeugt in dem die gesicherten Datein liegen.
Mit der Zeit wird die Platte jedoch zu voll. Ich möchte daher nur die letzten 10 Ordner behalten, die anderen sollen gelöscht werden. Leider kann ich das nicht über die Datumsabfrage lösen da nicht jeden Tag ein Backup erstellt wird.
Hatte so angefangen:
Code:
' ' alte Sicherungsdatei löschen --------------------------
' Einlesen des Backup Verzeichnisses
Set ReadKonfiguration = objFSO.OpenTextFile(Konfiguration, 1, true)
'Einlesen des Verzeichnisses
B = ReadKonfiguration.Readline
ReadKonfiguration.close
MsgBox "Verzeichnis: " & (B)
Set fsoLoeschen = CreateObject("Scripting.FileSystemObject")
Set ordner = fsoLoeschen.GetFolder (B)
MsgBox "Gefunden: " & (ordner)
Ich lese aus einem Textfile den Laufwerksbuchstaben aus und speichere den in der Variable B. Danach komme ich nicht weiter. Erstelle ein Object "fsoLoeschen".
Das Script soll nun alle Ordner sortieren und dann die ersten 10 behalten und den Rest löschen. Irgendwie muss ich die mit ein er FOR Each...NEXT Schleife zählen soviel habe ich bei "Schwichtenberg" gelesen.
Einfacher: Wie sortiere, durchlaufe und lösche ich Ordner in einem Verzeichniss so, dass ich nur die letzten 10 erstelten übrigbleiben?
Hat da jemand eine Idee?