'*** v4.6 *** www.dieseyer.de ******************************* 

' 

' Datei:  DateienAltDeleteTyp.vbs 

' Autor:  dieseyer@gmx.de  

' Auf:    www.dieseyer.de 

' 

' Löscht alle Dateien mit einer bestimmten Erweiterung, die 

' seit einem bestimmten Datum nicht mehr geändert wurden 

' 

'************************************************************ 

 

Option Explicit 

 

Dim Pfad, Alter, DateiTyp 

 

DateiTyp = "rex" 

DateiTyp = "cmd" 

DateiTyp = UCase(DateiTyp)  

 

 

Pfad = "d:\setup" 

Pfad = "."          ' Verzeichnis, in dem sich das Skript befindet, Skript wird also auch gelöscht 

Pfad = "c:\temp" 

 

Alter = 365         ' Dateien, die seit xxx Tagen nicht geändert wurden 

 

MsgBox AltesLoeschen (Pfad, Alter )    'Function Aufruf  und   Ergebnisanzeige 

       AltesLoeschen "c:\temp", 100    'Function Aufruf  OHNE  Ergebnisanzeige 

'                                                       ~~~~~~  

 

WScript.Quit 

 

 

'*** v4.6 *** www.dieseyer.de ******************************* 

Function AltesLoeschen (Pfad, Alter) ' Anfang 

'************************************************************ 

Dim fso, oFiles, i, Txt 

 

Alter   = FormatDateTime( now() - Alter ,2)  

 

Set fso = WScript.CreateObject("Scripting.FileSystemObject") 

 

if not fso.FolderExists( Pfad ) then 

  MsgBox UCase(Pfad) & "   existiert nicht!", , WScript.ScriptName 

  Exit Function 

End If 

 

AltesLoeschen = "In   " & UCase( Pfad ) & "   wurden vor dem   " & Alter & "   geändert Dateien gelöscht." & vbCRLF & vbCRLF 

 

Set oFiles   = fso.GetFolder( Pfad ).Files 

For Each i In oFiles 

 

  if DateDiff("d" , i.DateLastModified, Alter) > 0 then ' vor dem Alter geänderte Dateien 

 

    Txt = i.path   ' nach dem Löschen von i.Path ist auch i.Path gelöscht 

    AltesLoeschen = AltesLoeschen & i.Name & "  " & vbTab & FormatDateTime( i.DateLastModified ,2)  

 

  On Error Resume Next 

    if UCase( fso.GetExtensionName(i.Name) ) = DateiTyp then  

      fso.DeleteFile i.path, True 

    End if  

  On Error GoTo 0 

 

    If not fso.FileExists( Txt ) Then  

      AltesLoeschen = AltesLoeschen & vbCRLF 

    Else 

      AltesLoeschen = AltesLoeschen & " nicht gelöscht." & vbCRLF 

    End if 

 

  End If 

 

Next 

 

Set oFiles   = nothing 

Set fso      = nothing 

 

End Function ' AltesLoeschen (Pfad, Alter) ' Ende