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

[Yuri_S]

Как узнать, существует ли директория по определенному адресу?
Желательно без АПИ...

[_Мика_]

Private Function FileEx(FullFileName As String) As Boolean
On Error GoTo MakeF
'If file does Not exist, there will be an Error
Open FullFileName For Input As #1
Close #1
'no error, file exists
FileEx = True
Exit Function

MakeF:
'error, file does Not exist
FileEx = False
Exit Function
End Function

[A.A.Z.]

_Мика_, просили директорию, а не файл!
Можно использовать FSO, тогда в References подключи Microsoft Scripting Runtime и юзай этот код:

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

Sub Form_Load()
Dim FSO As New Scripting.FileSystemObject
If FSO.FolderExists("C:\Papka") Then MsgBox "Папка есть" Else MsgBox "Папки нет"
End Sub

'Аналогично FileExists - наличие файла, DriveExists - наличие жесткого диска


[Yuri_S]

спасибо, мне пригодится и то и другое.......больше по теме вопросов нет

[hCORe]

Используй эту функцию, и все будет хорошо:

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

Public Function FExist (FolderName as String) as Boolean
On Error Resume Next
    ChDir FolderName
    If Err<>0 Then FExist=False Else FExist=True
    Err.Clear
End Function

Пользоваться функцией можно вот так:

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

If FExist("<имя твоей папки>") Then
    <действия>
Else
    <действия, если папка не существует>
End If
<продолжение кода программы>


[alibek]

В любом каталоге FAT, FAT32, NTFS обязательно присутствует специальный файл 'nul'. Т.е. можно, например, так:

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

If Len(Dir$("C:\MyDir\nul"))>0 Then ...

[Yuri_S]

круто....вот мне бы все это запомнить

[net]

Всё проще :
попро буй открыть эту паку с пом Shell "explorer.exe " ,а потом напиши,типа on error msgbox "нэту"

[SSecurity]

обычной функцией DIR увидешь все что надо ... где-тьо я это уже писал ....

Наличие Nil - необязательно просто если ты напишешь путь к файлуфункция возвратит тебе есть он или нет в строковом представлении ..а если напишешь не файл а папку .... то таже система.

короче ...

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

Path = "c:\windows"
If Dir(Path)="" then msgbox "Папки "+Path+" тут нет!"


[Yuri_S]

Угу, ясно, спасибо

[TrueTrue]

Самый надёжный способ - этот.

В любом каталоге FAT, FAT32, NTFS обязательно присутствует специальный файл 'nul'. Т.е. можно, например, так:

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

If Len(Dir$("C:\MyDir\nul"))>0 Then ...

Делал програмку типа Бекап папок Windows, так другие варианты периодически не срабатывали по непонятным причинам, в частности такой:

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

Dir(Path)=""

помоему не сработал на папке Windows\Fonts

видимо зависит от атрибутов папки. Более глубоко не разбирался.