Пользователь2Странно, у меня все нормально создает. Может у тебя стоит Касперский, который блокирует выполнение макросов?
Касперский-то стоит, но вообще макросы работают, так что вроде как и эта команда должна выполнятся.
Вот еще альтернативные варианты:
Пользователь2FSO:
1.
2.
3.
4.
5.
6.
7.
8.
Dim fso As New Scripting.FileSystemObject
Dim fol As Scripting.Folder
Dim strFolder As String
strFolder = "D:\NewFolder"
If Not fso.FolderExists(strFolder) Then
Set fol = fso.CreateFolder(strFolder)
End If
Говорит, что тип не определён. Может его как-то по другому описать нуно?
Пользователь2WinAPI:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" ( _
ByVal lpPathName As String, _
lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Sub Y()
Dim typSecurity As SECURITY_ATTRIBUTES
Dim lngRet As Long
lngRet = CreateDirectory("D:\NewFolder", typSecurity)
If lngRet = 0 Then
MsgBox "Не удается создать директорию!"
End If
End Sub
Пишет: "Не удается создать директорию!" во всех случаях.
