| Вопрос: Помогите! | Добавлено: 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.SmileICQ: 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-сайт: Профиль | | #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.SmileICQ: 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.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #8 | Добавлено: 13.10.07 22:05 |
|
А не проще через FileSystemObject ?
>> Из пушки по воробьям.
|
||
Страница: 1 |