Проверка наличия файла

[goro]

Люди помогите.
Мне нужно срочно пример как можно проверить файл на его наличие. К примеру в тектовое поле я ввожу путь и имя файла и при нажатии на кнопку прога проверяет есть ли этот файл или нет. Просто у меня сейчас нет моего исходника, а пример нужен срочно.
Заранее спасибо.

[Damage]

вот код функции

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

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

возвращает 1 если существует

[RayShade]

А поискать лень что ли было? Этот вопрос уже поднимался сто раз.

И делается все очень просто и без API:

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

If Len(Dir(Fname))>0 Then MsgBox "Файл " & Fname & " существует."


[goro]

Спасибо![/quote]

[Emzari]

привет всем

сначала проекту подключаеш Microsoft scripting runtime через диалоговое окно Refferenses

а потом код.

Dim FSO As New FileSystemObject

IF FSO.FileExists(Text1.Text)=True Then
'фаил сушествует
Else
'фаил не сушествует
End IF

Не проверял но должен работать

[GoGosha]

привет всем

сначала проекту подключаеш Microsoft scripting runtime через диалоговое окно Refferenses

а потом код.

Dim FSO As New FileSystemObject

IF FSO.FileExists(Text1.Text)=True Then
'фаил сушествует
Else
'фаил не сушествует
End IF

Не проверял но должен работать

Этот кодв отличие от Dir провеяет наличие ФАЙЛА, а Dir может реагировать и на папки

[goro]

И еще раз большое спасибо!

[Emzari]

проверить сушествует или нет папка можно точно также

IF FSO.FolderExists(Text1.Text)=True Then
'Папка сушествует
Else
'Папка не сушествует
End IF

[Firestorm]

проверить сушествует или нет папка можно точно также

IF FSO.FolderExists(Text1.Text)=True Then
'Папка сушествует
Else
'Папка не сушествует
End IF

можно и файл и папку проверить (аналогично примеру RayShade'а) как if dir$(путь к папке или файлу) <> "" then msgbox "существует"

[v-adix]

private function isfile(fname as string) as boolean
if len(dir(fname)) > 0 then
isfile=true
else
isfile=false
end function

[ASD]

private function isfile(fname as string) as boolean
if len(dir(fname)) > 0 then
isfile=true
else
isfile=false
end function

Согласен. Проще некуда.

[-=Jaga=-]

А как с помощю FSO, или по другому, проверить наличие ПАПКИ (ФАЙЛА) не по имени. Просто есть файлы (папки) на диске или нет.

[HandKot]

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

If Dir("c:\*") > 1 Then "Диск не пуст"

[alibek]

Кривой код. Да еще некрофилия, вдобавок.

[-=Jaga=-]

Немного не о том просил. Мне нужно проверить есть ли файлы и папки на диске не зная конкретного имени папок и файлов.
Не просто пуст диск или не пуст.

Таким образом не работает:

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

        fso.FileExists "A:\*.*"
        fso.FolderExists "A:\*"


Как возможно проверить?

[alibek]

Len(Dir$("C:\*")) > 0
Len(Dir$("C:\*", vbDirectory)) > 0

[-=Jaga=-]

Спасибо!
При наличии файла на диске:
Len(Dir$("C:\*", vbDirectory)) > 0 тоже возвращает True.
Я что-то не понял или так и должно быть. Но тогда при наличии файла на диске нельзя однозначно проверить наличие папки. Как еще можно проверить?