title image


Smiley Mit dem FSO z. B. so...
Option Explicit



Private Sub Command1_Click()

Dim fso As Object

Dim fld As Object

Dim fil As Object



Set fso = CreateObject("Scripting.FileSystemObject")



Set fld = fso.getfolder("\\Server-xxxx\_BIZTALK\ORDERS_NAV\ARCHIV\")



For Each fil In fld.Files

If fil.datecreated < Now - 30 Then

fil.delete

End If

Next



End Sub





Dieses Script löscht alle Dateien, deren ERSTELLUNGSDATUM älter 30 Tage ist. Wenn du möchtest, dass alle Dateien, deren letztes ÄNDERUNGSDATUM gelöscht werden, heißt es entsprechend



fil.DateLastModified



Und wenn es gar alle Dateien sein sollen, die das letzte Mal auch ohne Speichern vor über dreißig Tagen angefasst wurden, heißt es



fil.DateLastAccessed

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: