Создание папОК

[neic]

Вот я пользуюсь для создания папок вот таким способом:

MkDir "C:\Windows\1"

А как сделать чтобы создавались сразуже все папки? Например мне нужно создать десять папок, но MkDir не сможет сразуже создать 10папок, ну вот у меня и вопрос каким способом можно создать 10 папок СРАЗУЖЕ?

[FaKk2]

neic
"СРАЗУЖЕ" имеешь ввиду одномоментно?

Никак. Разве что несколькоми потоками, но и тогда на диск они запишуться по одному.

[_Мика_]

neic
"СРАЗУЖЕ" имеешь ввиду одномоментно?

Никак. Разве что несколькоми потоками, но и тогда на диск они запишуться по одному.

Ну почему же

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

Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long


[FaKk2]

_Мика_
Знаешь, написать обертку к MkDir я тоже могу.
Но создавать то буду по одному...

[kirrun]

Я так понимаю человеку надо создать сразу весь путь...

То есть например есть диск c:\ а на нем больше ничего... А ему нужен путь c:\hernya\bred\otstoi\
И приходится делать по одной папке
MkDir c:\hernya
MkDir c:\hernya\bred...
и тд...
Вот он и хочет все сразу...

Скорее всего проще будет просто написать функцию, которой пихаешь полный путь, она его по слешам разбирает и создает...

[FaKk2]

neic
Сходи по ссылке в моей подписи, прочитай и задай вопрос заново

[kirrun]

FAKK2

Да расслабься ты! Хорошая тихая ночь... лично я не прочь поиграть в вопрос-ответ и попытаться угадать что ему надо... Нет, я серьезно!

ЗЫ Хотя, я вроде уже угадал...

[FaKk2]

kirrun
А у меня рабочий день

[kirrun]

FAKK2

А я ща спать, наверно, пойду... Завтра аффтора увидим и узнаем че хотел... Ибо сегодня праздник, я ему даже эту функцию напишу... =)

ЗЫ. Христос Воскресе!

[FaKk2]

kirrun
Воистину воскрес!

[Sasha_karasov]

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

Public Sub MDIR(Dir As String)
If Mid(Dir, Len(Dir), 1) <> "\" Then
Dir = Dir + "\"
For i = 4 To Len(Dir)
If Mid(Dir, i, 1) = "\" Then MkDir Mid(Dir, 1, i - 1)
Next i
Else
For i = 4 To Len(Dir)
If Mid(Dir, i, 1) = "\" Then MkDir Mid(Dir, 1, i - 1)
Next i
End If
End Sub

Private Sub Form_Load()
MDIR "c:\1\2\3"
End Sub

[neic]

Я так понимаю человеку надо создать сразу весь путь...

То есть например есть диск c:\ а на нем больше ничего... А ему нужен путь c:\hernya\bred\otstoi\
И приходится делать по одной папке
MkDir c:\hernya
MkDir c:\hernya\bred...
и тд...
Вот он и хочет все сразу...

Скорее всего проще будет просто написать функцию, которой пихаешь полный путь, она его по слешам разбирает и создает...

Точно!
Sasha_karasov угу всё сработало, спасибо!

[GSerg]

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long

[A.A.Z.]

2 GSerg: не мешай, видишь, люди велосипед изобретают

[_Мика_]

А чем это не подошло???
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

[GSerg]

Тем, что может создать только последнюю папку, при условии, что все предыдущие существуют.

[kirrun]

Позвольте предложить немного более компактный вариант этой же функции

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

Public Sub MDir(Dir As String)
If Right(Dir, 1) <> "\" Then Dir = Dir + "\"
For i = 4 To Len(Dir)
If Mid(Dir, i, 1) = "\" Then MkDir Left(Dir, i)
Next i
End Sub


Зачем использовать Mid, когда мона юзать Right или Left... Получается короче и читабилньее... Да и два раза одно и тоже мона было не писать...
Но это так... Написано нормально... Просто всегда можно что-то охаить и исправить =)

[_Мика_]

Тем, что может создать только последнюю папку, при условии, что все предыдущие существуют.

А....ну да, сорюсь...тогдав вот ето!

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

Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long


[|kerish|]

Так теперь давайте создадим свою файловую систему...

[Sasha_karasov]

Можно и так, просто я ночью писал, голова не варит.
Давайте писать свою систему ф. Только как?

[_Мика_]

Ну как минимум нужна операционная система

[kirrun]

Отлично! Чур я пишу фирменный блокнот и рисую указатели мыши... Чтоб такое придумать... Белая стрелочка в винде, черная в лине... О! Будет не стрелка, а мышь =) Да, если надо - могу панель управления написать =)

УРА!!! НОВАЯ ОПЕРАЦИОННАЯ СИСТЕМА "VBStreetsows ХУ.." =)

[_Мика_]

Ок..а я займусь оформлением!