Jag håller på med ett vbs-script som loopar igenom en startkatalog och ska radera filer (till att börja med skriver ut dom...) som är äldre än 3 månader...
Det är inget problem att utföra själva raderingen... det som är problem är hur man loopar uppåt trädet eftersom startkatalogen kan ha godtyckligt antal underkataloger

Nånting typ detta har jag kommit fram till men denna bit loopar ju bara igenom kataloger som ligger i strPath... och som sagt dessa kataloger kan innehålla fler kataloger...

If (fso.FolderExists(strPath)) Then
Set f = fso.GetFolder(strPath)
Set fc = f.SubFolders
For Each f1 in fc
strPath1 = strPath & f1.name & "\"
Set innerf = fso1.GetFolder(strPath1)
For Each filer in innerf.Files
If filer.DateCreated < (Now - 90) Then
WScript.Echo filer.Path
End If
Next
Next
End If

Tacksam för hjälp :)

Gör det till ett rekursivt anrop.

Skicka in en katalog i en funktion
fall1. katalogen har underkataloger
skicka in underkatalog 1 som inparameter i funktionen
loopa igenom alla kataloger
fall2. katalogen har inga underkataloger
bryt metod - end function

//Emma

Tack alla :)