Определение существования папки

01.04.2011, 18:40. **Показов** 1633. **Ответов** 7

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста!
Как определить, существует ли директория с заданным именем в текущей директории?
Как я понимаю, с помощью Dir?

01.04.2011, 18:52

Т.е
If (не существует (???)) Then
(создание)
Else
MsgBox('Такая уже есть!')
Exit Sub
End If

Какое условие у If?

01.04.2011, 23:06

Visual Basic
1
2
3
4
5
6
7
Private Sub Form_Load()
  If Dir$('C:windows', vbDirectory) = '' Then
  MkDir ('C:windows')
  Else
  MsgBox 'Такая папка уже есть', vbCritical
  End If
End Sub

@pancer · 02.04.2011, 10:50

ЛИБО:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Public Function DirectoryExists(ByVal strPathName As String) As Boolean
    Dim DirectoryFound As String
    Const errPathNotFound As Integer = 76
 
    On Error GoTo 0
    DirectoryFound = Dir(strPathName, vbDirectory)
    If (Len(DirectoryFound) = 0 Or Err = errPathNotFound) Then
        DirectoryExists = False
    Else
        DirectoryExists = True
    End If
End Function

02.04.2011, 14:59

Visual Basic
1
2
3
Private Declare Function PathFileExists Lib 'shlwapi.dll' Alias 'PathFileExistsA' (ByVal pszPath As String) As Long
'
If CBool(PathFileExists('c:windows')) Then <существует!>

02.04.2011, 21:47

Кстати, чем плоха проверка при помощи Dir:
выполните Dir$('A:'), когда в дисководе НЕТ дискеты - получите run-time error 52 ('bad file name or number'). API при этом даже не чихнёт

)

04.04.2011, 13:36

хехююеще раз FSO.
Только ссылку на FSO надо устанвить.

Visual Basic
1
2
3
4
5
6
7
DIM FSO as FileSystenObject
if fso.FolderExists(Имя) then
***
else
***
end if
set FSO=nothing

@maga2 · 06.04.2011, 22:29

Не проверял, но в вариантах с Dir кажется закралась ошибочка, т.е. недочет: может и файл с таким названиием за папку принять.
Нужна еще одна проверка... типа:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
If Dir$('C:windows', vbDirectory) = '' Then
MkDir ('C:windows')
Else
    If Dir$('C:windows') = '' Then
        MsgBox 'Такая папка уже есть', vbCritical
    else
        MsgBox 'это на C: файл с названием windows!', vbCritical
    End If
End If
End Sub

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

alkos

	Определение существования папки 01.04.2011, 18:40. Показов 1633. Ответов 7 Метки нет (Все метки) Помогите, пожалуйста! Как определить, существует ли директория с заданным именем в текущей директории? Как я понимаю, с помощью Dir?

alkos
	01.04.2011, 18:52
	Т.е If (не существует (???)) Then (создание) Else MsgBox('Такая уже есть!') Exit Sub End If Какое условие у If?

Comanche
	02.04.2011, 21:47
	Кстати, чем плоха проверка при помощи Dir: выполните Dir$('A:'), когда в дисководе НЕТ дискеты - получите run-time error 52 ('bad file name or number'). API при этом даже не чихнёт )