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

Следующую функцию можно использовать для проверки существования файла.

Все, что вам нужно сделать, это передать ему полное имя файла в виде строки, и макрос вернет либо True (если файл существует), либо False (если нет).

Function FileThere(FileName As String) As Boolean     FileThere = (Dir(FileName) > "")

End Function

Вы можете использовать функцию, подобную следующей:

If FileThere("c:\myfile.txt") Then     '     ' Do stuff here     ' Else     MsgBox "File Not There!"

End If

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (819) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Determining_If_a_File_Exists [Определение, существует ли файл].