Поиск!

[Max!]

Как запрограмировать сваю прогу что бы она искала определённыи фаил например "C:\XXX\www.txt" , если этот фаил отсутствует то прога выводит окно об ошибке!

[Damage]

Код: Выделить всё


Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

k= PathFileExists(FileName)


k=1 файл существует
k=0 файл не существует

[Max!]

Как будет выгледить код если его запехнуть в кнопку?

[Хой]

ну если я тебя правильно понял, то вот так:
в секцию General Declaration:
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
а далее в событие Click кнопки:
k = PathFileExists("C:\XXX\www.txt")
If k = 0 Then
MsgBox "Файл не сушествует"
Else
MsgBox "Файл сушествует"
End If
----------
ну и всё...

[Max!]

Спасибо!!!