Как програмно создать директорию?

[Yuri_S]

Желательно пример...

[hCORe]

Если одну папочку, то:

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

MkDir "<путь>"

А если хочешь создать папку, со сложной структурой пути (т.е. включает подпапки и не они присутствуют), то воспользуйся моей функцией <(c) hCORe>:

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

Public Function MakDir(Dir As String) As Boolean
Dim XI As Single
Dim LastWd As Boolean
Dim DirX As String
Dim Old As Single
Dim FLs As Single
Dim DirMain As String
On Error GoTo NoEx
LastWd = False
Old = 1
XI = 0
FLs = 0
If InStr(Len(Dir) - 1, Dir, "\", vbTextCompare) = 0 _
Then Dir = Dir & "\"
On Error GoTo Mer
Do
    DoEvents
    If Old <> 1 Then Old = Old + 1
    XI = InStr(Old, Dir, "\", vbTextCompare)
    Old = XI
    FLs = FLs + 1
Loop Until XI = 0
For i = 1 To FLs
    DoEvents
    If Old <> 1 Then Old = Old + 1
    XI = InStr(Old, Dir, "\", vbTextCompare)
    Old = XI
    If XI <= 0 Then LastWd = True
    If XI <> 0 Then
        If InStr(Old - 1, Mid(Dir, _
        Old - (Old - 1), Old - 1), _
        ":", vbTextCompare) = 0 Then
            DirX = Mid(Dir, Old - (Old - 1), Old - 1)
        End If
Mer:
If DirX <> "" Then
On Error Resume Next
    MkDir DirX
End If
er:
        If Not LastWd Then
            GoTo SkipNext
        Else
            GoTo NoEx
        End If
    End If
SkipNext:
Next
NoEx:
Err.Clear
Dir = Mid(Dir, 1, Len(Dir) - 1)
End Function


Убедительная просьба там ничего не менять. Все работает, и ладно [/code]

[hCORe]

И соответственно используй функцию:

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

MakDir "<путь к папке>"

[Yuri_S]

[Yuri_S]

спасибо

[gaidar]

Тема себя исчерпала.