Je hebt geluk, ik heb zelf zon scriptje moeten maken / zoeken voor mijn werk.
Het eerste deel verwijderd de files die ouder zijn dan 13 dagen :
Visual Basic:
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
33
34
| '****** Delete de files die ouder zijn dan 13 dagen
Dim fso, startFolder, OlderThanDate
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("deletefiles-log.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = "\\XXXXXX\tmp\" ' Folder waar de files zich bevinden (subfolders ook)
OlderThanDate = DateAdd("d", -13, Date) ' 13 dagen (Hier kan je het aantal dagen aangeven)
DeleteOldFiles startFolder, OlderThanDate
Function DeleteOldFiles(folderName, BeforeDate)
Dim folder, file, fileCollection, folderCollection, subFolder
Set folder = fso.GetFolder(folderName)
Set fileCollection = folder.Files
objFile.WriteLine(folder)
For Each file In fileCollection
If file.DateCreated < BeforeDate Then
objFile.WriteLine(vbTab & file.Path & vbTab & file.DateCreated & vbTab & "deleting")
fso.DeleteFile(file.Path)
End If
Next
Set folderCollection = folder.SubFolders
For Each subFolder In folderCollection
DeleteOldFiles subFolder.Path, BeforeDate
Next
End Function |
Het 2de scriptje verwijderd de lege folders
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| '****** Delete de lege subfolders
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("deletefolders-log.txt")
Const strTopFolder = "\\XXXXXX\tmp\" 'Plaats van de subfolders
Dim objFSO, objFolder, objSubFolder
Set objFSO = CreateObject("Scripting.fileSystemObject")
Set objFolder = objFSO.GetFolder(strTopFolder)
For Each objSubFolder In objFolder.SubFolders
'objFile.WriteLine(objSubFolder.Name & vbTab & objSubFolder.Size)
If (objSubFolder.size <> 0) Then
objFile.WriteLine(objSubFolder.Name)
Else
objFile.WriteLine(objSubFolder.Name & vbTab & "deleting")
Call objSubFolder.Delete()
End If
Next : |
Je maakt een .cmd file waar je dan schrijft cscript files.vbs en daaronder cscript folders.vbs. Om het mooi te maken kan je dan nog de log files met blat.exe naar je mailbox laten sturen.
Succes.
[
Voor 5% gewijzigd door
F_J_K op 16-02-2009 17:24
. Reden: Ik ben zo vrij geweest het tussen code tags te zetten ]