Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Алексей Немиро -

Visual Basic 5.0/6.0 - Файлы и папки

Все примеры / Файлы и папки

Проверка существования файла

Автор: Алексей Немиро | добавлено: 05.03.2010, 16:16 | просмотров: 5041 (1+) | комментариев: 0 | рейтинг: *x0
Пример показывает, как стандартными средствами Visual Basic проверить существование файла.

Инструкции

Создайте стандартный EXE-проект и вставьте следующий код.

Код

Public Function nasFileExists(FilePath As String) As Boolean 
 On Error Resume Next 
 Dim feFile 
 Err.Clear 
 feFile = FreeFile 
 FilePath = Replace(FilePath, "\\", "\") 
 Open FilePath For Input As #feFile 
 If Err.Number = 53 Or Err.Number = 76 Then 
  nasFileExists = False 
  GoTo OK 
 Else 
  nasFileExists = True 
 End If 
OK: 
 Close #feFile 
 Err.Clear 
End Function 

Private Sub Form_Load() 
 If nasFileExists("C:\autoexec.bat") Then 
  MsgBox "Файл существует!", vbInformation 
 Else 
  MsgBox "Файл не найден...", vbInformation 
 End If 
End Sub

Как это работает?

Функция пытается открыть указанный файл, если файл не найден, происходит ошибка с кодом 53, а в случае, если путь к файлу не найден (каталог или диск не найден), то происходит ошибка с кодом 76. Оператор On Error Resume Next позволяет продолжать работу программы, несмотря на ошибки.
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Алексей Немиро

Интернет-деятель. Автор многочисленных статей и переводов статей по программированию и информационным технологиям. Работы Алексея можно найти в популярных печатных изданиях компьютерной тематики. Автор проекта Kbyte.Ru.
Сейчас Алексей занимается профессиональным Web-программированием на базе технологий .NET Framework. Иногда пишет различные программки и компоненты для Windows и Android. В свободное время занимается Web-дизайном, увлекается фото- и видеосъемкой.

См. также:
Профиль автора
Алексей Немиро
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики