script som sletter gamle filer i mappe

[abrj]

Hei

Er et noen som har tips til hvordan man kan lage et skript som sletter gamle filer i en bestemt mappe, f.eks filer som er over 5 dager gamle?

Endret 4. desember 2008 av abrj

[backup]

'vbs script
Set oShell = CreateObject("Shell.Application") 
Folder = "C:\Documents and Settings\Eier\Skrivebord\Test" 'Sett inn din mappe her
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Folder)
Set files=f.Files
Dim c, f1
For Each fl in files
if DateDiff("d",fl.DateCreated,now) > CInt(5) Then
fso.DeleteFile(f & "\" & fl.name)
End if
Next
msgbox("Finito!")

[abrj]

Suverent script. Har du et som beholder de siste 5 uavhengig av dato/tid også?

[backup]

Hadde ikke, men laget et som beholder dem 5 siste lagt inn i mappa:

'vbs script
Set oShell = CreateObject("Shell.Application") 
Folder = "C:\Documents and Settings\Eier\Skrivebord\Test" 'Sett inn din mappe her
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Folder)
Set files=f.Files
Dim c, f1, arr(), i
i = 0
For Each fl in files
ReDim preserve arr(i) 
arr(i) = fl.DateCreated & "|" & f & "\" & fl.name
i = i+1
Next
sort
For i = 0 To UBound(arr)-5
r = Split(arr(i),"|")
fso.DeleteFile(r(1))
next
msgbox("Finito!")
Sub sort
for i = UBound(arr) - 1 To 0 Step -1
for j= 0 to i
	if arr(j)>arr(j+1) then
		temp=arr(j+1)
		arr(j+1)=arr(j)
		arr(j)=temp
	end if
next
next 
End sub