Если файл существует, но пользователь не имеет прав на его просмотр, то будет возвращено False.
Похожие команды
FileSearch Поиск файла в одной или более папках
FileSize Выдает размер открытого файла в записях
FileSetAttr Устанавливает атрибуты файла
В этой статье мы узнаем как проверить существование файла. В FormCreate или Button1Click пишем код проверки файла на существование:
Вот и всё, Удачи!
Источник: www.thedelphi.ru Автор: Савельев Александр Опубликовано: 5 Апреля 2012 Просмотров: 10812
Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.
При работе с файлами и директориями часто возникают те или иные ошибки. Чтобы отговорить себя хотя бы от части — нужно обязательно проверять, существует ли файл или каталог.
Проверка, существует ли файл или папка:
В процессе разработки очень часто возникает потребность в том, чтобы проверить существует ли файл или папка. В Delphi предусмотрены специальные функции для проверки:
function FileExists ( const FileName : string) : Boolean; — проверяет существует ли файл. В функцию нужно передать имя файла с полным путем к нему. Например, такое ‘c:/1.html’. На выходе получаем булевское значение (истина/ложь).
function DirectoryExists(const Directory: string): Boolean; — принцип работы напоминает принцип предыдущей функции. Только передавать нужно путь к папке. В ответ получаем все те же истину или ложь.
Пример использования:
FileExist может пригодиться, если Вы в программе пытаетесь создать файл, но Вам нужно убедиться, что файла с таким названием нет. Пример с использованием данной функции тут. DirectoryExists тоже может быть очень полезна. Приведу пример. Вам нужно сохранить файл каком-либо каталоге. Если такого каталога не окажется, то файл не сохранится и произойдет ошибка. Так что перед тем как сохранить файл, если Вы не уверены в существовании директории, лучше проверить.
Если Вам нужен пример того, как использовать DirectoryExists — напишите мне в комментариях к статье. Я обязательно придумаю пример и опишу его отдельной статье. В принципе я готов ответить на любые интересующие вопросы — задавайте.
