Ахуеть ты всё расписал блять:mitchust:

автор - дитё высокотехнологичного гетто-урбана:o

Михаил :confused:

магниту те, сцуко:tomato::tomato::tomato:
пей жырчик!:mad::krik:

афтор :D Джонн О'Коннор тебя победит :p

:o

ты такой умный коля.

отвечай, жалкий вирт:krik:
:virt:

эй ты нахуй!:seva: лоу кик те от батьки




'
'ISA
'
set objNamedArgs=Wscript.Arguments.Named

path=objNamedArgs.item("path")
killdate=date() - objNamedArgs.item("killdate")
recur=objNamedArgs.item("recur")

wscript.echo path, killdate, recur

arFiles = Array()
set fso = createobject("scripting.filesystemobject")




SelectFiles path, killdate, arFiles, recur

nDeleted = 0
for n = 0 to ubound(arFiles)

on error resume next 'in case of 'in use' files...
arFiles(n).delete true
if err.number = 0 then
nDeleted = nDeleted + 1

end if
on error goto 0
next

sub SelectFiles(sPath,vKillDate,arFilesToKill,bInclude SubFolders)
on error resume next

'

set folder = fso.getfolder(sPath)
set files = folder.files
for each file in files
' Date
'
dtlastmodified = null
on error resume Next
dtlastmodified = file.datelastmodified
on error goto 0
if not isnull(dtlastmodified) Then
if dtlastmodified < vKillDate then
count = ubound(arFilesToKill) + 1
redim preserve arFilesToKill(count)
set arFilesToKill(count) = file
end if
end if
next

if bIncludeSubFolders then
for each fldr in folder.subfolders
SelectFiles fldr.path,vKillDate,arFilesToKill,true
next
end if
end sub

роботы идут нахуй:o:voin:

ВРАГ ПАЛ ПОД НОВОСИБОМ
 

В НЕЧЕЛОВЕЧЕСКИХ УСИЛЬЯХ...
:dovolen:

Вампиры!

Таким вот образом и пал первый в мире робот-девственник :(