VBNet - Форум - Помогите!

Вопрос: Помогите! Добавлено: 11.10.07 18:00

Автор вопроса: werber | Web-сайт: www.werbersoft.ru

Подскажите, пожалуйста, способ проверки существования любого файла (нужно, чтобы возвращалось true или false).
Лучше если это будет модуль.
Ответить

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

Номер ответа: 1 Автор ответа: Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464	Профиль \| Цитата \| #1	Добавлено: 11.10.07 18:26
	Public Function FileExists(strFileName As String) As Boolean If Len(Dir$(strFileName)) Then FileExists = True Else FileExists = False End If End Function Хе-хе... Ответить

Номер ответа: 2 Автор ответа: Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464	Профиль \| Цитата \| #2	Добавлено: 11.10.07 18:37
	Поправочка: эта функция читает и системные скрытые файлы, такие как boot.ini. Public Function FileExists(strFileName As String) As Boolean If Len(Dir$(strFileName, vbSystem + vbHidden)) Then FileExists = True Else FileExists = False End If End Function Ответить

Номер ответа: 3 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| Цитата \| #3	Добавлено: 11.10.07 21:21
	А можно короче)) сорри если опять копирайты нарушаю Public Function FileExists(strFileName As String) As Boolean If Len(Dir$(strFileName)) Then FileExists = True End Function Ответить

Номер ответа: 4 Автор ответа: nguufxm6bo Вопросов: 0 Ответов: 27	Профиль \| Цитата \| #4	Добавлено: 12.10.07 02:35
	Еще короче )) Public Function FileExists(strFileName As String) As Boolean FileExists = Len(Dir$(strFileName)) End Function Ответить

Номер ответа: 5 Автор ответа: Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464	Профиль \| Цитата \| #5	Добавлено: 12.10.07 20:47
	Если важнее скорость, то в каждое дествие стоит выполнять в отдельной строке. Версия 2.0 Public Function FileExists(strFileName As String, Optional ByVal Attributes As VbFileAttribute = vbSystem + vbHidden) As Boolean Dim strTemp As String strTemp = Dir$(strFileName, Attributes) FileExists = CBool(Len(strTemp)) End Function Ответить

Номер ответа: 6 Автор ответа: Stuart Вопросов: 5 Ответов: 152	Профиль \| Цитата \| #6	Добавлено: 12.10.07 22:00
	Вот так: Option Explicit Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long Private Sub Form_Load() Dim x As Long 'True - Ceotcndetn, False - Ytn x = PathFileExists("C:\autoexec.bat" If x = 1 Then MsgBox True If x = 0 Then MsgBox False End Sub Или вот так: Option Explicit Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long Public Function DoesFileExist(ByVal strPath As String) As Boolean DoesFileExist = PathFileExists(strPath) End Function Private Sub Form_Load() MsgBox DoesFileExist("C:\autoexec.bat" End End Sub Ответить

Номер ответа: 7 Автор ответа: Агент Вопросов: 3 Ответов: 16	Профиль \| Цитата \| #7	Добавлено: 13.10.07 00:55
	А не проще через FileSystemObject ? Ответить

Номер ответа: 8 Автор ответа: Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464	Профиль \| Цитата \| #8	Добавлено: 13.10.07 22:05
	А не проще через FileSystemObject ? >> Из пушки по воробьям. Ответить

Страница: 1 |