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

@snyppimylt · Регистрация: 18.12.2011

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

Visual Basic
1
2
3
4
5
If ... Then
..
Else
..
End If

Что нужно написать?

Просто фишка в чем. Когда программа создает каталог она видет что на диске С уже есть он и вылетает Time Run и т.д.
Конечно можно ввести запрос чтобы вводили имя папки, Но как бы обойтись без этого?

@Pro_grammer · 18.03.2012, 21:03

Сообщение от Апострофф

Только выполнив в цикле Dir(Path,0).

Это не по существу. Не надо выкручиваться, естественно в контексте вопроса ТС :

Сообщение от snyppimylt

If ... Then

Приведите пример папки или файла, когда это

Visual Basic
1
2
3
4
5
If Dir("c:\temp") <> "" Then
MsgBox "это имя занято"
Else
MsgBox "Это имя свободно"
End If

приведет к "вылетает Time Run".

@Апострофф · 18.03.2012, 22:19

Сообщение от Pro_grammer

Приведите пример папки или файла, когда это

Visual Basic
1
2
3
4
5
If Dir("c:\temp") <> "" Then
MsgBox "это имя занято"
Else
MsgBox "Это имя свободно"
End If

приведет к "вылетает Time Run".

Как раз с этим я не спорил.
И влез, когда увидел FolderExists от Dimon_bogoduhov.
Я в курсе, чем отличается файл от папки, занятое имя от допустимого и т.д. и т.п...

Сообщение от Catstail

Я имею в виду, что если при вызове Dir$ вторым параметром задан атрибут vbDirectory, то не должны бы возвращаться имена файлов. Ведь у файла этот атрибут не установлен...

Понимаю твоё негодование, но придётся смириться с тем, что Dir$ вторым параметром принимает не один атрибут, а сумму (Or).
И в этом есть смысл, поверь! Можно в зависимости от цели написать так или любую другую комбинацию атрибутов

Code
1
2
3
4
Dir$(Path,vbnormal)
Dir$(Path,vbnormal or vbArchive)
Dir$(Path,vbnormal or vbArchive or vbHidden)
Dir$(Path,vbnormal or vbArchive or vbHidden or vbSystem)

И результаты каждый раз могут быть разными, но vbnormal(=0) на них никак не влияет (потому что 0 не влияет на сумму)...

Dragokas · 18.03.2012, 22:46

Сообщение от Pro_grammer

Это не по существу... когда это... приведет к "вылетает Time Run".

Приведет, по тому что в контексте вопроса ТС функция использована неправильно.
http://msdn.microsoft.com/en-u... s.71).aspx
"Dir [(PathName[, Attributes])]. Attributes - Constant "vbnormal" is Default. Specifies files with no attributes."

Если Вы вообще не указываете атрибут, по умолчанию она не будет искать каталоги, в т.ч. c:\temp

Добавлено через 8 минут
Правильно создавать каталог с проверкой на отсутствие одноименного файла или каталога через Dir предлагаю так:

Visual Basic
1
2
St = "c:\temp"
If Dir(St, vbDirectory + vbHidden + vbSystem + vbReadOnly) = "" Then MkDir (St)

Судя с экспериментов:
Dir возвращает те файлы и/или каталоги, сумма свойств которых <= указанному в Dir атрибуте.

@snyppimylt · 19.03.2012, 01:09 **[ТС]**

Сообщение от Pro_grammer

Visual Basic
1
2
3
4
5
If Dir("c:\temp") <> "" Then
MsgBox "это имя занято"
Else
MsgBox "Это имя свободно"
End If

Этот способ не пашет

Добавлено через 43 минуты
Пацаны, так что мне лучше всего использовать? а то вы тут Дискуссию развели а я сам что-то не понял. Может кто объяснит

@Alex77755 · 19.03.2012, 03:09

Тебе нужно проверять наличие папки или нужно, что бы не вылетало с ошибкой?
Мой пример не вылетает

@Pro_grammer · 19.03.2012, 06:57

Сообщение от Diskretor

по умолчанию она не будет искать каталоги, в т.ч. c:\temp

Проверял? А ссылки на доки, написанные для .NET давно уже надо перепроверять, они часто говорят одно, а работает по другому!

Сообщение от snyppimylt

Этот способ не пашет

Ты полный код этого участка дай, а то одни ... наставил, а мы догадывайся, что у тебя не так.
Тут ВСЕ способы абсолютно рабочие, а спор идет о минимально рабочем коде.

@Catstail · 19.03.2012, 08:29

Для Апострофа. С пассажем о "сумме (or)" не согласимся... Функция принимает БИТОВЫЙ ПАРАМЕТР. И дело здесь в том, что не предусмотрено атрибута "обычный файл", т.к. vbNormal просто равно нулю. Поэтому поведение Dir$ неестественное. Можно считать это концептуальной ошибкой Microsoft. Было бы логично, чтобы при задании бита vbDirectory программа-исполнитель Dir$ просто пропускала бы обычные файлы. Впрочем, это нетрудно сделать в виде надстройки над Dir.

@snyppimylt · 19.03.2012, 18:34 **[ТС]**

Полный код? я могу только придумать по скольку полного кода нету. Ведь я хочу сделать так:
1. Создать каталог -
1.1 - каталог с таким именем есть? - да - сообщение об ошибке
нет - Каталог создался.

Добавлено через 59 секунд
Или где ошибка, запрос на новое имя.

Dragokas · 19.03.2012, 18:44

Неужели сложно скопировать пару строк в интерпретатор:

Visual Basic
1
2
St = "c:\temp"
If Dir(St, vbDirectory + vbHidden + vbSystem + vbReadOnly) = "" Then MkDir (St) Else msgbox "Имя/каталог уже существует!"

@snyppimylt · 22.03.2012, 19:51 **[ТС]**

Сообщение от Diskretor

Неужели сложно скопировать пару строк в интерпретатор:

Не ттрудно скопировать, но важен сам процесс понятия как это работает, что можно добавить, как этим пользоваться. Обычный человек тоже может взять исходник, пихнуть его в ASCII файл, поставить соотвествующий формат, и запустить с минимальной гарантий что будет работать

Dragokas · 23.03.2012, 16:22

Сообщение от snyppimylt

но важен сам процесс понятия как это работает

противоречит

Сообщение от snyppimylt

а то вы тут Дискуссию развели

Спрашивайте тогда конкретно, что именно Вы не поняли.

Гарантии могут быть только, если Вы сами посмотрите в справочник.
Создадите несколько папок/файлов с различными атрибутами (R, S, H, SH, ...), а затем путем экспериментов проверите все возможные параметры обсуждаемых здесь команд на наличие глюков.

Указанная мной команда протестирована на вышеописанных условиях.

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

Visual Basic
1
2
3
4
5
6
7
Public Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _
                                            (ByVal hwnd As Long, ByVal pszPath As String, _
                                             ByVal psa As Any) As Long
 
Sub SubDir()
SHCreateDirectoryEx Application.hwnd, "c:\1\1\1", ByVal 0&
End Sub

@snyppimylt · 29.03.2012, 22:52 **[ТС]**

Ребята, всем спасибо, простите что я так тупил, уже давно все понял.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	19.03.2012, 03:09
	Тебе нужно проверять наличие папки или нужно, что бы не вылетало с ошибкой? Мой пример не вылетает 1

@Catstail Супер-модератор 38226 / 21158 / 4314 Регистрация: 12.02.2012 Сообщений: 34,773 Записей в блоге: 14
	19.03.2012, 08:29
	Для Апострофа. С пассажем о "сумме (or)" не согласимся... Функция принимает БИТОВЫЙ ПАРАМЕТР. И дело здесь в том, что не предусмотрено атрибута "обычный файл", т.к. vbNormal просто равно нулю. Поэтому поведение Dir$ неестественное. Можно считать это концептуальной ошибкой Microsoft. Было бы логично, чтобы при задании бита vbDirectory программа-исполнитель Dir$ просто пропускала бы обычные файлы. Впрочем, это нетрудно сделать в виде надстройки над Dir. 0

@snyppimylt 8 / 8 / 1 Регистрация: 18.12.2011 Сообщений: 409
	19.03.2012, 18:34 [ТС]
	Полный код? я могу только придумать по скольку полного кода нету. Ведь я хочу сделать так: 1. Создать каталог - 1.1 - каталог с таким именем есть? - да - сообщение об ошибке нет - Каталог создался. Добавлено через 59 секунд Или где ошибка, запрос на новое имя. 0

@snyppimylt 8 / 8 / 1 Регистрация: 18.12.2011 Сообщений: 409
	29.03.2012, 22:52 [ТС]
	Ребята, всем спасибо, простите что я так тупил, уже давно все понял. 0