KillaJ
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Rush, спасибо!Но я уже написал свой. Вот, если кому пригодится. Код: Option Explicit Dim t, n, ext, path_1, path_2, path_3, info, fso, shell, f, file set fso = createobject("Scripting.FileSystemObject") set shell = WScript.CreateObject("WScript.Shell") path_1 = "C:\Folder1" path_2 = "c:\VB\" ext = "txt" n=0 if not fso.folderexists(path_2) then fso.createfolder(path_2) for each file in fso.getfolder(path_1).files f = file.DateCreated n=n+1 'info = "Файл " & WScript.ScriptName & " :" & Chr(10) 'info = info & "Создан: " & f & Chr(10) info = "Количество отчетов: " & n & Chr(10) t = left(f,10) path_3 = path_2+right(t,4) & left(right(t,7),2) & left(right(t,10),2) if not fso.folderexists(path_3) then fso.createfolder(path_3) if fso.getextensionname(file) = ext then fso.movefile file, path_3 & "\" & fso.getfilename(file) next Msgbox info | |