VPF::[Перенесено из VB6/MS Access]Проверка на наличие файла

Волшебник

Дата 7.2.2010, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 13.9.2009

Репутация: нет
Всего: нет

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

Simpliest

Дата 7.2.2010, 18:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 625
Регистрация: 1.9.2009

Репутация: нет
Всего: 3

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

)

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

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

--------------------

Данкинг

Дата 7.2.2010, 18:53 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

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

Код


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

Это сообщение отредактировал(а) Данкинг - 7.2.2010, 18:55

--------------------

There's nothing left but silent epitaphs.

bopoha

Дата 7.2.2010, 19:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 21

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

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

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

)

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

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

--------------------

Как создавать приложения на MS Access

Волшебник

Дата 7.2.2010, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 13.9.2009

Репутация: нет
Всего: нет

Цитата(Волшебник @ 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:03

Данкинг

Дата 7.2.2010, 23:12 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Код


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

Это сообщение отредактировал(а) Данкинг - 7.2.2010, 23:13

--------------------

There's nothing left but silent epitaphs.

Akina

Дата 8.2.2010, 00:22 (ссылка)

(голосов:1)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

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

)

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

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

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »