Обработка ошибки открытия
 

В код нужно добавить фрагмент обработки ошибки открытия в случае неверного указания пути или имени файла с выводом сообщения об этом
вот сам код:

daniil_im, «неверного указания пути» в этом коде быть не может, ибо путь к «Мои документы» задаётся функциями операционной системы. Имя файла указывается напрямую в коде. Что тут может быть «неверного»?!

Ну, хорошо. Предположим, мы настолько тупы, что указали в коде недопустимые символы в имени файла:
Тогда так:

Здравствуйте. У меня чуть, чуть другая проблема. В частности нужно обработать ошибку открытия файла Word.
Имеется скрипт vbs который сравнивает документы которые сдают обучающиеся.

Иногда обучающиеся получают на обработку файл формата rtf, но потом должны сохранить результат в docx и некоторые обучающиеся не зная, как это сделать просто вручную меняют расширение файла с rtf на docx. Естественно скрипт при открытии такого файла выдает мне ошибку. А нужно чтобы он условием If проверил это и написал об этой ошибке ученику в итоговый файл и продолжил работу. Подскажите пожалуйста каким обработчиком это можно сделать? Заранее спасибо.

Информация о том, «как это сделать» должна присутствовать в инструкционной карте.

Я не могу сэмулировать Вашу проблему: в моём Microsoft Word 2003 файл .rtf, будучи тупо переименован в расширение .docx, открывается программно без проблем, не генерируя при этом ошибки.

kosmonavtom, Не сильно изучал Ваши коды, однако, как идея, перед открытием документа с расширением .DOCX в WORD, проанализировать, не является ли он .RTF

Спасибо за идею. :)

Но нашел решение вида:

Которое сработало. Т.е. просто проверять нет ли ошибок после открытия файла )) Думаю оно более универсально?

Err.Clear здесь лишнее — до On Error Resume Next все возникающие ошибки вызывают останов скрипта (и, возможно, вызов отладчика), а после On Error Resume Next никакой ошибки до Вашего Err.Clear возникнуть в принципе не может.

Можно. Только не забудьте:
а) перед открытием проверить, существует ли этот файл в принципе, дабы не путаться в видах ошибок (коллега megaloman, впрочем, реализовал сию проверку зараз внутри функции);
б) вернуть стандартную обработку ошибок (On Error Goto 0) сразу после открытия файла и обработки ошибок.

megaloman, можно и просто:

Код:

---

    AllTxt = iFile.Read(Len("{\rtf"))
    iFile.Close

    If Not StrComp(AllTxt, "{\rtf", vbTextCompare) = 0 Then
        RTF = 0
    End If

---

Цитата Iska:
Можно. Только не забудьте:
а) перед открытием проверить, существует ли этот файл в принципе, дабы не путаться в видах ошибок (коллега megaloman, впрочем, реализовал сию проверку зараз внутри функции);
б) вернуть стандартную обработку ошибок (On Error Goto 0) сразу после открытия файла и обработки ошибок. »
Спасибо за подсказки! :oszone:

В общем вот что получилось:

Проблема только в том, что после всего этого почему то Word не закрывается и висит в диспетчере задач не убитый висит! Пытался убить не получается. Что может быть не так? До введения обработки ошибок все нормально было.

Это потому, что Вы завершаете исполнение скрипта:
до того, как закрываете открытый экземпляр Word'а:

Цитата:

Цитата kosmonavtom До введения обработки ошибок все нормально было. »

«После» — не значит «вследствие» :).

Цитата Iska:
Это потому, что Вы завершаете исполнение скрипта: до того, как закрываете открытый экземпляр Word'а:»
Да! Спасибо!!! Поменял местами и работает. Очень странно правда, т.к. до этого без обработчика ошибок и так работало! :laugh:


Еще нужно было подставить ItogoviRezultat в строку 30 примерно:


В итоге вот так записана рабочая версия на практике: