Scriptas su VBS

Sveiki,

gavau tokią užduotį:

"Labas,

pradžioje padaryk scriptuką su VBS, kad iš kelių nurodytų katalogų ištrintų nenas bylas (pvz. iš vieno trintų 3 dienų senumo, iš kito 10 dienų.) Sriptas kiekvieno paleidimo metu sukurtų log bylą, į kurią surašyti iš kokio katalogo kokią bylą ištrynė. Taip pat jeigu ištrynus visas bylas is pakatologio jis lieka tuščias, tai tas pats skirptutas ištrintų ir tuščius katalogus. Čia tau kodas, kuris gali tave užvesti ant kelio. Bet ne būtinai tu prie jo turi prisirišti."

' Folder path
const fldname = "D:\katalogas\" 
set fso = createobject("scripting.filesystemobject")
set fldr = fso.getfolder(fldname)
dttoday = date
tmnow = Time
'Calculate trigger date (change according to your requirements) 
dtold = dateadd("d", -2, dttoday) 'files older than 2 days will be deleted
'DateAdd(interval,number,date) 
'Interval:
'    * yyyy - Year
'    * q - Quarter
'    * m - Month
'    * y - Day of year
'    * d - Day
'    * w - Weekday
'    * ww - Week of year
'    * h - Hour
'    * n - Minute
'    * s - Second
' Log File
Set LogFSO = CreateObject("Scripting.FileSystemObject")
FileName = "D:\Server scripts\" & Year(dttoday)&"."&Month(dttoday)&"."&Day(dttoday)&"-"&Hour(tmnow)&"."&Minute(tmnow)&"."&Second(tmnow)&".txt"
Set LogFile = LogFSO.OpenTextFile(FileName, 2, True)
recurse fldr  
sub recurse( byref fldr)
 dim subfolders,files,folder,file
 set subfolders = fldr.subfolders
 set files = fldr.files
 LogFile.WriteLine(fldr.path)
 for each file in files
   if file.datelastmodified < dtold then
  LogFile.WriteLine("     DELETING - " & file.name & " LAST MODIFIED: " & file.datelastmodified)
     on error resume next 
     file.delete
    end if
 next  
 for each folder in subfolders
   recurse folder
 next   
set subfolders = nothing
  set files = nothing
end sub

Gal galit kas nors padaryti? Atsiskaitysiu banku, jei reikės.

nėra galinčių?

HELP

siūlau 30 lietuviškų