VPF::функция FileExist - Форум программистов

Voldemar2004

Дата 20.4.2005, 15:58 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


Function FileExist(p As String) As Long

        If Dir(p) <> "" Then
        FileExist = Success
        
Else

        FileExist = Failure
        End If

End Function


Private Sub Command1_Click()

Dim ResultValue As Long

ResultValue = FileExist("C:\temp.txt")
If ResultValue = Failure Then

MsgBox "Not Exist"

Else

' продолжение программы

End If
End Sub

Пример взял из книги VB 6 Руководство для профессионалов.
Не знаю че не работает функция определения существования файла.
smile

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

i_i
(';')
(V)

user posted image

Akina

Дата 20.4.2005, 16:08 (ссылка)

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

Загрузка ...

Советчик

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

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

наверное ты забыл определить константы Success и Failure... f еще лучше замени их на True и False

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

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

Anhost

Дата 20.4.2005, 18:09 (ссылка)

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

Загрузка ...

Новичок

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

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

Я выкрутился из этой ситуации так:

Код


Function FileExist(byVal FilePath as String) as Boolean
   On Error Resume Next
   Filelen(FilePath)
   if Err.Number=0 then FileExist=True else FileExist=False
End function

Кстати, к папкам это тоже подходит...

Это сообщение отредактировал(а) Anhost - 20.4.2005, 18:10

Akina

Дата 20.4.2005, 18:16 (ссылка)

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

Загрузка ...

Советчик

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

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

Это именно "выкрутился"... мда-с...

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

Exception

Дата 21.4.2005, 10:41 (ссылка)

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

Загрузка ...

Эксперт

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

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

А зачем вообще FileExists???

Код


If Dir("E:\FuckYou.txt") <> "" Then
MsgBox "Файл существует!!!"
End If

Voldemar2004

Дата 21.4.2005, 17:07 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


Function FileExist(Path As String) As Long

If Dir(Path) <> "" Then
    
FileExist = MsgBox("Существует")
Else
FileExist = MsgBox("Не существует")

End If

End Function

Private Sub Command1_Click()
Dim ResultValue As Long
Dim FaleName As String

FileName = Text1.Text

ResultValue = FileExist(Text1.Text)

End Sub

Цитата

А зачем вообще FileExists???

Ну знаешь ли, каждый раз писать эти три строки в проге, где тебе надобно будет определять существование файла подобно goto, проще функцию написать - потом используй на здоровье. smile

Код


If Dir("E:\FuckYou.txt") <> "" Then    
MsgBox "Файл существует!!!"    
End If

Добавь else, иначе юзер не поймет че происходит-то, если файло нету.

Это сообщение отредактировал(а) Voldemar2004 - 21.4.2005, 17:08

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

i_i
(';')
(V)

user posted image

Exception

Дата 21.4.2005, 20:09 (ссылка)

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

Загрузка ...

Эксперт

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

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

Вообще-то функция твоя возвращает всегда vbOK. Нужно добавить код типа FileExists=False и т.п. smile

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