Вопрос № 147044: Здравствуйте уважаемые эксперты. Мне нужно проверить, есть ли в указаном каталоге(c://) папка Клиенты, и если ее нет, то ее необходимо создать. Прошу обьяснить как это можно реализовать?...
Вопрос № 147.044
Здравствуйте уважаемые эксперты. Мне нужно проверить, есть ли в указаном каталоге(c://) папка Клиенты, и если ее нет, то ее необходимо создать. Прошу обьяснить как это можно реализовать?
Отвечает: Шичко Игорь
Здравствуйте, Горбунов Алексей Николаевич! Для определения наличия файла или каталога в VBA используется функция DIR. Подробное описание можно отыскать в HELP VBA. (Там хоть по английски, но более-менее понятно). Создание нового каталога: функция MkDir("путь") Пример использования для определения наличия папки: If Not UCase(Dir(UCase("C:Клиенты"), vbDirectory)) = UCase("Клиенты") Then MkDir ("C:Клиенты") End If примечание: UCase используем для
приведения регистра к единой позиции.
Ответ отправил: Шичко Игорь (статус: 10-ый класс)
Ответ отправлен: 13.10.2008, 12:45 Оценка за ответ: 5
Отвечает: M@gi$†e®
Здравствуйте, Горбунов Алексей Николаевич! Примерно вот так: Sub MakeMyDir()
Dim DirName As String
DirName = "C:Клиенты"
If Dir(DirName, vbDirectory) <> "" Then MsgBox "Есть такая папка" Else MsgBox "Нет такой папки" MkDir (DirName) End If
End Sub
Приложение:
--------- Aquila non Capta Muscas
Ответ отправил: M@gi$†e® (статус: 7-ой класс)
Ответ отправлен: 13.10.2008, 13:39 Оценка за ответ: 5 Комментарий оценки: то что надо
