Привет! Вот,пожалуйста, когда-то давно наваял скрипт до сих пор пользуюсь.

dim fso, src, dest, curExt, extn, nfile, nFldr
set fso = CreateObject("Scripting.FileSystemObject")
src="c:\fso\"
dest="e:\backup\"
curExt = "PS1"
for each file in fso.GetFolder(src).Files
extn=ucase(fso.GetExtensionName(file.Name))
if extn=curExt then
nfile=fso.GetFile(file).name
nFldr=dest & date() & "\"
if not fso.FolderExists(nFldr) then
fso.CreateFolder(nFldr)
execData nFldr
Else
execData nFldr
End if
end if
next
sub execData(path)
dim nfile2, fileOut, fileIn, curTime, backupName
fso.CopyFile file, path
for each nfile2 in fso.GetFolder(path).Files
fileOut=fso.GetBaseName(nfile)
fileIn=fso.GetBaseName(nfile2)
curTime=hour(now())&"h"&minute(now())&"m"&second(n ow)&"s"
backupName=nfile&"_"&date()&"_"&curTime&".BAK"
if (fileOut = fileIn) then
fso.GetFile(nfile2).name=backupName
end if
next

end sub