![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Копирование файлов из каталогов и подкаталогов с сохранением структуры подкаталогов |
|
VBS/WSH/JS - Копирование файлов из каталогов и подкаталогов с сохранением структуры подкаталогов
|
Новый участник Сообщения: 1 |
Здравствуйте.
Есть следующая задача: Копировать все файлы, измененные позже определенной даты, из указанного каталога и его подкаталогов в другой каталог с сохранением структуры подкаталогов. Накидал на .js следующий код: //var objArgs = WScript.Arguments; //var Date = objArgs(0); //var Dir = objArgs(1); var Dir = "C:\\test" var Date = 2; var Mass = new Array(); Mass += AllFolders(Dir) for (var i=0; i < Mass.length; i++) { FolderFiles(Mass[i], 3); } // --------------------------------------------------------------------------- function AllFolders(Dir) { var F,Result,Folders; Result = new Array(); F=WScript.CreateObject("Scripting.FileSystemObject").GetFolder(Dir); Folders = new Enumerator(F.SubFolders); for (var i = 0; !Folders.atEnd(); Folders.moveNext(), i++) { Result[i] = Dir+"\\"+Folders.item().Name; Result [i+2] = AllFolders(Dir+"\\"+Folders.item().Name); } return Result; } function FolderFiles(Dir, Date) { var fso,fc,nol; if (Dir != nol) { WScript.Echo(Dir); fso = new ActiveXObject("Scripting.FileSystemObject").GetFolder(Dir); fc = new Enumerator(fso.files); for (; !fc.atEnd(); fc.moveNext()) { //if (fc.item().DateLastModified > Date) fc.item().Copy("C:\\log\fso.Add(Dir)"); WScript.Echo(fc.item()); //else return; } } return 0; } |
|
Отправлено: 23:58, 10-04-2013 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
VBS/WSH/JS - [решено] Очистка папки обмена с сохранением подкаталогов | ru52 | Скриптовые языки администрирования Windows | 9 | 17-01-2015 10:41 | |
CMD/BAT - [решено] Удаление пустых каталогов и подкаталогов через CMD | Andzzzz | Скриптовые языки администрирования Windows | 5 | 29-08-2013 16:00 | |
CMD/BAT - Копирование только самых новых файлов в папках с сохранением структуры папок | hoh | Скриптовые языки администрирования Windows | 3 | 03-01-2012 10:22 | |
CMD/BAT - копирование файлов из подкаталогов | bojfriend | Скриптовые языки администрирования Windows | 8 | 31-08-2011 01:49 | |
CMD/BAT - [решено] Конвертирование файлов с сохранением структуры каталогов | Sarge81 | Скриптовые языки администрирования Windows | 3 | 17-09-2010 07:12 |
|