| |
|
|
| | Скажите как из базы данных проверить есть ли файл (любого типа) в такой-то папке или нет. | |
| |
| |
|
|
| |
|
|
| | Чето у меня не получается
Пробую так:
Private Sub Кнопка1_Click()
Dir ("C:\База данных.accdb")
If Dir("C:\База данных.accdb") = True Then
If (7 = MsgBox("Найден", 64, "Проверка файла")) Then
End If
Else
If (7 = MsgBox("Нет", 64, "Проверка файла")) Then
End If
End If
End Sub | |
| |
| |
| |
|
|
| |
...Dir("C:\База данных.accdb") = True...
|
Пожалейте СилЫча, у него инфаркт будет. 
Dir Function
Returns a String representing the name of a file, directory, or folder that matches a specified pattern or file attribute, or the volume label of a drive.
|
| |
| |
| |
| |
|
|
| | Исправляемся
Private Sub Кнопка1_Click()
If Dir("C:\База данных.accdb") = "" Then
If (7 = MsgBox("Нет", 64, "Проверка файла")) Then
End If
Else
If (7 = MsgBox("Найден", 64, "Проверка файла")) Then
End If
End Sub | |
| |
| |
| |
|
|
| | не дождётесь 
я обычно ожидаю от спрашивающих, что они никогда не заглядывают в справочник(поначалу) и уж тем более не смотрят, что возвращает функция в окне Ctrl+G | |
| |
| |
| |
|
|
| |
Силыч
06.05.2004 13:10:00
<*>лять, да кто нибудь будет в этот грёбаный хелп заглядывать?!?!
|
(Цитата с цензурой.) | |
| |
| |
| |
|
|
| | мало того что хэлп им по боку, так в Гугле набрать два слова тяжело. | |
| |
| |
| |
|
|
| | это вечно, как выборы на Украине - ЦВК голоса посчитали, определили победителя и теперь затаились, ждут, чтобы узнать - кто же будет Президентом | |
| |
| |
| |
|
|
| | Ну правильно, кому же охота "под замес" попасть меж двух сторон.
Натолкают и справа и слева по самые помидоры. | |
| |
| |
