VBscript.Перенос файлов в папку с именем даты создания файловYYYYMMDD

null@example.com (Killa) — Sat, 30 Oct 2010 11:09:09 +0000

Добрый день! Я хочю сделать так, чтобы в папке из которой копирую файлы, брать дату создания файла и переносить в созданную папку имя которой дата создания файла в формате YYYYMMDD.Подскажите пож-та!

Вот исходный код:

set fso = createobject("Scripting.FileSystemObject")  
set shell = WScript.CreateObject("WScript.Shell")  
path_source = shell.specialfolders("Desktop")  
path_dest = shell.specialfolders("Desktop") & "\RADIO"  
ext = "txt"  
if not fso.folderexists(path_dest) then fso.createfolder(path_dest)  
for each file in fso.getfolder(path_source).files  
  if fso.getextensionname(file) = ext then fso.copyfile file, path_dest & "\" & fso.getfilename(file)  
next

Серый форум — VBscript.Перенос файлов в папку с именем даты создания файловYYYYMMDD

VBscript.Перенос файлов в папку с именем даты создания файловYYYYMMDD