Проверка диска ......

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Valerik
Обычный пользователь
Обычный пользователь
 
Сообщения: 69
Зарегистрирован: 18.10.2002 (Пт) 14:02
Откуда: Russia

Проверка диска ......

Сообщение Valerik » 13.02.2004 (Пт) 23:00

Хочу проверить есть ли диск A:\ и файл на нём SystemInformation.sav!
If Dir(App.Path & "A:\" & "SystemInformation.sav") <> "SystemInformation.sav" Then MsgBox "Не найдеа БД вставьте дискету", vbCritical, "Ошибка": End
Правильно ли делаю, а то выдаёт ошибки и очень долго ругается ! 8)

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 13.02.2004 (Пт) 23:54

:shock:
Предположим, App.Path = "C:\Projects", тогда
(Dir(App.Path & "A:\" & "SystemInformation.sav"))

= "C:\ProjectsA:\SystemInformation.sav" :arrow:
Код: Выделить всё
If Dir("A:\SystemInformation.sav") <> "SystemInformation.sav" Then MsgBox "Где БД, я спрашиваю?!", vbСritical: End
Нет меня больше


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 15

    TopList