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

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

Форум программистов > VB6 > функция FileExist

Автор: Voldemar2004 20.4.2005, 15:58

Код


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

Автор: Akina 20.4.2005, 16:08

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

Автор: Anhost 20.4.2005, 18:09

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

Код


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

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

Автор: Akina 20.4.2005, 18:16

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

Автор: Exception 21.4.2005, 10:41

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

Код


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

Автор: Voldemar2004 21.4.2005, 17:07

Код


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, иначе юзер не поймет че происходит-то, если файло нету.

Автор: Exception 21.4.2005, 20:09

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