Создание папок по списку в Excel

[jungo]

Друзья!

Вопрос простой, даже понимаю примерно, что нужно использовать функцию MkDir.

Есть список названий деталей в столбце А. Нужно создать для каждого из них папку.
1. Если есть повтор - Пропусти.
2. Если есть не корректное имя для папки - Выдай окно с его названием. При ОК продолжай.
3. Точный Patch для места этих папок можно сделать постоянным, лучше конечно переменным.

Помогите пожалуйста! Заранее спасибо!

[Казанский]

Примерно так

Sub bb()
Const ROOT = "d:\"
Dim c
On Error Resume Next
For Each c In Range("A1", Cells(Rows.Count, 1).End(xlUp)).Cells
    MkDir ROOT & c
    If Err.Number = 76 Then
        c.Select
        If MsgBox("Неверное имя: " & c & vbLf & "Продолжить?", vbExclamation + vbOKCancel) <> vbOK Then Exit For
    End If
    Err.Clear
Next
        
End Sub

[kuklp]

Леш, привет. Возможно так чуть проще(но с АПИ):

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Sub bb()
    Const ROOT = "d:\"
    Dim c
    For Each c In Range("A1", Cells(Rows.Count, 1).End(xlUp)).Cells
         MakeSureDirectoryPathExists ROOT & c & "\"
    Next
End Sub

[Казанский]

Привет, Серж.
Наверно, в API есть функции на все случаи жизни, только как их находить?
По условию задачи надо бы еще анализировать возвращаемое значение: 1 - ОК, 0 - невозможно создать папку.

[IgorGO]

думаю проверять надо было, чтобы MkDir по алгоритму jungo не вылетал по ошибке.
все прекрасно работает: есть папка - и хорошо, нет - сделает.
я бы для большей важности написал:

MakeSureDirectoryPathExists ROOT & c & Application.PathSeparator

когда-то я с этим напоролся на ошибку, теперь уверенно использую Application.PathSeparator

[kuklp]

Собственно , да. Поправка Игоря очень уместна. Спасибо, Игорь. Ну а насчет запрещенных символов - я сначала попробовал. Косяков не обнаружено:-) Просто не будет создан косячный каталог. Я сталкивался с таковыми еще во времена ДОСа. Но это уже совсем другая история...:-)

[IgorGO]

а вообще, Леша правильно заметил:

только как их находить?

Сережа, где ты это откопал MakeSureDirectoryPathExists???
наверняка не на www.MakeSureDirectoryPathExists.com )))
(вопрос риторический можно не отвечать, сам флуд развожу на форуме)

[kuklp]

Есть у меня фенька. agsetup.exe объем 2.2М. Там описания, параметры и примеры использования в VB. Игорь, могу те в личку, а ты уж выложи для всех. Ок?

[jungo]

Ребята!
Огромное спасибо! Все само собой работает.
Упростили работу моим инженерам, от них особенное спасибо!

[Сергей свч]

Друзья!
Такая ситуация:
Необходим создавать на диске D:\ папки и подпапки по значению ячеек двух соседних столбцов:
НАПРИМЕР:
D:\папка\подпапка\
если "папка"=А1....100000, а "подпапка"=В1....100000