|
Платные хостинги
Раскрутка сайта
Книги по программированию
функция FileExist, Не хочет работать
- Код Function FileExist(p As String) As Long If Dir(p) <> "" Then FileExist = Success Else FileExist = Failure End IfEnd FunctionPrivate Sub Command1_Click()Dim ResultValue As LongResultValue = FileExist("C:\temp.txt")If ResultValue = Failure ThenMsgBox "Not Exist"Else' продолжение программыEnd IfEnd SubhighlightSyntax('vb1ZDRiM','vb');Пример взял из книги VB 6 Руководство для профессионалов.Не знаю че не работает функция определения существования файла.
- наверное ты забыл определить константы Success и Failure... f еще лучше замени их на True и False
- Я выкрутился из этой ситуации так:Код Function FileExist(byVal FilePath as String) as Boolean On Error Resume Next Filelen(FilePath) if Err.Number=0 then FileExist=True else FileExist=FalseEnd functionhighlightSyntax('vb3ODIzZ','vb'); Кстати, к папкам это тоже подходит... Это сообщение отредактировал Anhost - 20.4.2005, 18:10
- Это именно "выкрутился"... мда-с...
- А зачем вообще FileExists??? Код If Dir("E:\FuckYou.txt") <> "" ThenMsgBox "Файл существует!!!"End IfhighlightSyntax('vbE2Zjg2','vb');
- Ну знаешь ли, каждый раз писать эти три строки в проге, где тебе надобно будет определять существование файла подобно goto, проще функцию написать - потом используй на здоровье. Код If Dir("E:\FuckYou.txt") <> "" Then MsgBox "Файл существует!!!" End IfhighlightSyntax('vbTBmMGZ','vb');Добавь else, иначе юзер не поймет че происходит-то, если файло нету. Это сообщение отредактировал Voldemar2004 - 21.4.2005, 17:08
- Вообще-то функция твоя возвращает всегда vbOK. Нужно добавить код типа FileExists=False и т.п.
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
