Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > [Перенесено из VB6/MS Access]Проверка на наличие файла

Автор: Волшебник 7.2.2010, 18:29

Скажите как из базы данных проверить есть ли файл (любого типа) в такой-то папке или нет.

Автор: Simpliest 7.2.2010, 18:41

Цитата(Волшебник @ 7.2.2010, 17:29

)

Скажите как из базы данных проверить есть ли файл (любого типа) в такой-то папке или нет.

Омг, а базе это зачем?

Автор: Данкинг 7.2.2010, 18:53

Попробуй его открыть и отлавливай ошибку 3024. smile

Код


On Error GoTo Err_or
...
Err_or:
if Err.Number=3024 then...

Автор: bopoha 7.2.2010, 19:38

Волшебник, см. замечательную функцию Dir() или библиотеку FileSystemObjects (сокращенно FSO).

Добавлено через 3 минуты и 24 секунды

Цитата(Simpliest @ 7.2.2010, 18:41

)

Омг, а базе это зачем?

Особенности работы программ под MS Access.

Автор: Волшебник 7.2.2010, 22:24

Цитата(Волшебник @ 7.2.2010, 18:29)

Скажите как из базы данных проверить есть ли файл (любого типа) в такой-то папке или нет.

Чето у меня не получается
Пробую так:

Код


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

Исправляемся

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

Автор: Данкинг 7.2.2010, 23:12

Код


If (7 = MsgBox("Нет", 64, "Проверка файла")) Then
End If

А ты вообще что хотел сказать этим т.н. "кодом"? smile

Поделись секретом, а то я себя полным дураком чувствую уже. smile

Код



Private Sub Кнопка0_Click()
If Dir("C:\База данных.accdb") <> "" Then MsgBox "О да!!!", vbExclamation + vbOKOnly, "Найдено" Else MsgBox "Облом(((((", vbExclamation + vbOKOnly, "Не найдено"
End Sub

Автор: Akina 8.2.2010, 00:22

Цитата(Данкинг @ 8.2.2010, 00:12

)

ты вообще что хотел сказать этим т.н. "кодом"? Поделись секретом, а то я себя полным дураком чувствую уже.

Очень просто - выводится мессбокс с одной кнопкой "ОК", и после его закрытия проверяется, не умудрился ли юзер нажать кнопку "No" smile