nice script from internet again :D
http://www.eggheadcafe.com/software/aspnet/31061977/an-easy-script-to-delete-folders-on-a-network-share-that-are-older-than-14-days.aspx
change at cint( XX ) > XX for how many days old
Directory > location of the folder you want delete. Network drive also can :)
Dim Directory
Dim Noofdays
Dim FSO
Dim FSO2
Dim LogFile
Dim Folderlist
Dim folders
Directory ="C:\Program Files\Microsoft Office Servers\12.0\Logs\UAP\"
Noofdays=cint(30)
LogFile="C:\Program Files\Microsoft Office Servers\12.0\Logs\UAP\deleted.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSO2 = CreateObject("Scripting.FileSystemObject")
Set oFSO = CreateObject("Scripting.FilesyStemObject")
'
If oFSO.FileExists(Logfile) Then
Const ForAppending = 8
Set ofile = oFSO.OpenTextFile(LogFile, ForAppending, True)
Else
Set oFile = oFSO.CreateTextFile(logfile, true)
End If
ofile.writeline "Delete Folders older than 30 days Started --> " & now()
Set Folderlist = FSO.GetFolder(Directory)
Set folders = Folderlist.SubFolders
For Each d In Folders
' msgbox d.name
' msgbox d.size
' msgbox d.dateCreated
' msgbox d.dateLastModified
' msgbox d.dateLastAccessed
tempdirectory = Directory & d.name
If datediff("d",d.dateCreated,now()) > Noofdays Then
FSO2.DeleteFolder(tempdirectory )
ofile.writeline "Deleting Folder...." & tempdirectory
if err.number <>0 then
ofile.writeline cstr(now()) & " " & Err.description
err.clear
end if
End If
Next
ofile.writeline "Delete Folders older than 30 days Completed --> " &now()
ofile.writeline "--------------------------------------------"
ofile.close