Создание папки

[Юля]

Как создать папку на VBA из excel?

[corgi]

например так:
MkDir "C:\my folder\"

[BuilderSoft]

Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Function CheckExistDir()
On Error Resume Next
Dim Security As SECURITY_ATTRIBUTES
Dim ret As Long
'Create a directory

ret& = CreateDirectory("C:\......", Security)
'If CreateDirectory returns 0, the function has failed
If ret& = 0 Then
End If

End Function