VBNet - Форум - Проверка на существование файла?

Вопрос: Проверка на существование файла? Добавлено: 10.05.07 15:19

Автор вопроса: Vasiliy

Не обязательно что файл текстовый (даже скорее всего он будет нетекстовый) можно проверить существует файл или нет?
заранее спасибо
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: Alexandrus ICQ: 496782368 Вопросов: 18 Ответов: 312	Web-сайт: starsorion.com Профиль \| \| #1	Добавлено: 10.05.07 15:39
	If Dir$("1212.exe" <> "" Then Ответить

Номер ответа: 2 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #2	Добавлено: 10.05.07 15:41
	а) Function EstLiFile(FileName As String) As Boolean Dim fso As New FileSystemObject If fso.FileExists(FileName) Then EstLiFile = True End Function Ответить

Номер ответа: 3 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #3	Добавлено: 10.05.07 15:42
	б) Function EstLiFile(FileName As String) As Boolean On Error GoTo er Dim s As String Open FileName For Input As #1 Line Input #1, s Close EstLiFile = True Exit Function er: End Function Ответить

Номер ответа: 4 Автор ответа: *D o c a l* ICQ: 408802757 Вопросов: 76 Ответов: 985	Web-сайт: www.doc-source.pp.net.ua/ Профиль \| \| #4	Добавлено: 10.05.07 15:51
	Dir$ генерирует runtime error, если ему суют несуществующее имя диска. Например, Dir$ ("d:\win\himems.sys" умирает , если драйв d: не существует. Для проверки существования файла, добавьте обработчик ошибки: Function FileExist(filename As String) _ As Boolean On Error Resume Next FileExist = Dir$(filename) <> "" If Err.Number <> 0 Then FileExist _ = False On Error GoTo 0 End Function Ответить

Номер ответа: 5 Автор ответа: Alexandrus ICQ: 496782368 Вопросов: 18 Ответов: 312	Web-сайт: starsorion.com Профиль \| \| #5	Добавлено: 10.05.07 16:51
	Ну проверил я Dir в VBA и...ничего не умерло.Но даже если есть неясные ситуации,то можно и обработчик. Ответить

Номер ответа: 6 Автор ответа: Vasiliy Вопросов: 9 Ответов: 18	Профиль \| \| #6	Добавлено: 10.05.07 17:16
	Спасибо, функция Function FileExist(filename As String) _ As Boolean On Error Resume Next FileExist = Dir$(filename) <> "" If Err.Number <> 0 Then FileExist _ = False On Error GoTo 0 End Function прекрасно работает! Ответить

Номер ответа: 7 Автор ответа: VisualPaul ICQ: 402519798 Вопросов: 12 Ответов: 111	Профиль \| \| #7	Добавлено: 10.05.07 20:46
	Можно без Dim fso As New FileSystemObject Ответить

Страница: 1 |