Появляется ошибка "Разрешение отклонено;код 800A0046" при выполнении следующего кода:
var FSO,WshShell,MyDate,SourcePath,DestinationPath,SourceFolder,SourceFiles,DateCrea ted; arrayDC = new Array(); //создаем необходимые для работы скрипта объекты FSO=WScript.CreateObject("Scripting.FileSystemObject"); WshShell=WScript.CreateObject("WScript.Shell"); //Заданая дата MyDate = new Date (2006,10,10); //месяцы от 0 до 11 //Путь к каталогам SourcePath="C:\\1"; DestinationPath="C:\\2"; //Получаем объект-папка SourceFolder=FSO.GetFolder(SourcePath); //Получим колекцию файлов в заданом каталоге SourceFiles = new Enumerator(SourceFolder.Files); //перебираем и копируем for (;!SourceFiles.atEnd(); SourceFiles.moveNext()) { DateCreated = new Date(SourceFiles.item().DateCreated); if (DateCreated<=MyDate) { //WScript.Echo(DateCreated.toLocaleDateString() +" "+ MyDate.toLocaleDateString()); SourceFiles.item().Copy(DestinationPath); } }
Что такое может быть? Уровень безопасности минимум, WinXPSP2, антивир NOD32(отключал-не помогает), права администратора.
|