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

[Valerik]

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

[A.A.Z.]

Предположим, App.Path = "C:\Projects", тогда

(Dir(App.Path & "A:\" & "SystemInformation.sav"))

= "C:\ProjectsA:\SystemInformation.sav"

Код: Выделить всё

If Dir("A:\SystemInformation.sav") <> "SystemInformation.sav" Then MsgBox "Где БД, я спрашиваю?!", vbСritical: End