Logo faq-o-matic.net
Logo faq-o-matic.net

Alte Dateien löschen

von veröffentlicht am1. Oktober 2006, 16:02 Uhr Kurzlink und Zitatlink einblenden
Kategorie Kategorie: Scripting, VBScript   Translate with Google Translate Translate EN   Die angezeigte Seite drucken

Wer kennt das nicht? Dateien, die ein bestimmtes Alter überschritten haben, sollen automatisch gelöscht werden. Im aktuellen Fall ging es um automatisch generierte Backupdateien einer Datenbankanwendung. Die Anforderung besagte, dass diese für 14 Tage aufbewahrt werden sollen. Mit Hilfe eines VB-Skripts lässt sich die Anforderung lösen.

Das folgende Skript löscht alle Dateien in einem bestimmten Ordner, die älter sind als eine einstellbare Zahl von Tagen. Dabei lässt sich die Auswahl der Dateien auf eine bestimmte Dateiendung einschränken.

Folgende Anpassungen sind vorzunehmen:

  • strOrdner: enthält den zu durchsuchenden Ordner
  • strExtension: enthält die Dateinamenserweiterung; "" findet einfach alle Dateien
  • intTage: Anzahl der Tage, die die Dateien mindestens alt sein müssen, damit das Skript sie löscht

Achtung, das Skript löscht ohne Rückfrage endgültig!

  1. Option Explicit
  2. Dim intZahl      '
  3. Dim strExtension      '
  4. Dim intTage           '
  5. Dim objDatei          '
  6. Dim objFSO            '
  7. Dim objOrdner         '
  8. Dim strOrdner         '
  9.  
  10. Set objFSO = CreateObject("Scripting.FileSystemObject")
  11. strOrdner = "D:\Temp\Dateien"
  12. strExtension = "bak"
  13. intTage = 30
  14.  
  15. Set objOrdner = objFSO.GetFolder(strOrdner)
  16. intZahl = 0
  17. For Each objDatei In objOrdner.Files
  18.     If LCase(Right(objDatei.name, Len(strExtension))) = LCase(strExtension) _
  19.         And DateDiff("d", objDatei.DateLastModified, Now) > intTage Then
  20.         objDatei.Delete
  21.         intZahl = intZahl + 1
  22.     End If
  23. Next
  24.  
  25. WScript.Echo intZahl & " Dateien gelöscht."

© 2005-2019 bei faq-o-matic.net. Alle Rechte an den Texten liegen bei deren Autorinnen und Autoren.

Jede Wiederveröffentlichung der Texte oder von Auszügen daraus - egal ob kommerziell oder nicht - bedarf der ausdrücklichen Genehmigung durch die jeweiligen Urheberinnen oder Urheber.

Das Impressum findet sich unter: http://www.faq-o-matic.net/impressum/

Danke, dass du faq-o-matic.net nutzt. Du hast ein einfaches Blog sehr glücklich gemacht!