Появляется ошибка "Разрешение отклонено;код 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(отключал-не помогает), права администратора.
Пуск -> выполнить -> dcomcnfg -> Службы компонентов -> Компьютеры -> Мой компьютер -> (пр.кнопка) Свойства -> Свойства по умолчанию -> Проверить галку на "Разрешить использовать DCOM на этом компьютере".
и поробовать добавить завершающий слеш в пути к папкам
SourcePath="C:\\1\\";
DestinationPath="C:\\2\\";
Спасибо за подсказку.Действительно не хватало завершающего слэша
Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)