Entwickler-Ecke

Off Topic - Frage zu Script

Delete - Mo 09.11.09 14:54
Titel: Frage zu Script

Hallo an alle erst mal.
Habe im Netz ein schönes Script gefunden zum Löschen von Datein und Verzeichnissen die älter als 5 Tage sind. So nun zu meinem Problem, Es erstält ein Verzeichnis Trashbox und Kopiert da alles rein. Das will ich nich es soll gleich alles Löschen ohne zu Fragen.
Ich hoffe mal es kennt sich jemand mit sowas aus und kann mir das Script ändern.

Ich danke euch schon mal vorraus.

mfg Amsel0_0

ene - Mo 09.11.09 15:07

Moin,

das sieht zwar grausig aus, löscht doch aber alle Dateien. In deinem Fall wird l untersucht und den Schalter hast du ja schon auf false gesetzt.

Delete - Mo 09.11.09 15:11

Danke Ene,
Ja aber ich will das er nur Löscht ohne das Kopieren in ein neues Verzeichnis. Was muß da denn noch so alles raus aus dem Script.

mfg Amsel0_0

ene - Mo 09.11.09 15:40

Fürs reine Löschen reicht das:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

CleanTemp 5   'Anzahl der Limittage!

Sub CleanTemp(alter)
Set fs = CreateObject("Scripting.FileSystemObject") 
Set temp = fs.GetFolder("l:\")
    
DeleteAll temp, alter
End Sub

Sub DeleteAll(folderobj, alter)
   For each subfolder in folderobj.SubFolders
    DeleteAll subfolder, alter
   Next
   
   For each file in folderobj.Files
    On Error Resume Next
    datum = DateLastModified
    ok = (Err.number = 0)
    On Error Goto 0
    
    If ok Then
         filealter = DateDiff("d", datum, Date)
         If filealter>alter Then
               file.Delete True         

         End If
    End If
   Next
   If folderobj.Files.Count = 0 And folderobj.SubFolders.Count = 0 Then
  folderobj.Delete True
   End If
End Sub

Delete - Mo 09.11.09 15:44

Danke schön Ene.
Aber eine Frage habe ich ja noch Löscht der in den Papierkorb oder direckt, das leztere wäre mir Lieber da brauch ich nich Immer nachzusehn.

mfg Amsel0_0

ene - Mo 09.11.09 16:04

Einfach mal ausprobieren? ;) Bei mir landet nix im Papierkorb.

Delete - Di 10.11.09 15:39

Ene werde es ja am kommenden Montag sehn ob es gefunzt hat. Wenn nich melde ich mich noch mal hier. Habe es auf unserem Server in den Taskmanger rein genommen und für Freitag eingestelt.

mfg Amsel0_0

Edit: Ene hat alles wunderbar gefunzt. Ich sage nochmals danke zu dir.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!