Мяв. Народ, подскажите, почему из Excel код работает, а из Access нет?
Код
Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _
(ByVal hwnd As Long, ByVal pszPath As String, _
ByVal psa As Any) As Long
Sub CreateFolderWithSubfolders(ByVal ПутьСоздаваемойПапки$)
' функция получает в качестве параметра путь к папке
' если такой папки ещё нет - она создаётся
' может создаваться сразу несколько подпапок
If Len(Dir(ПутьСоздаваемойПапки$, vbDirectory)) = 0 Then ' если папка отсутствует
SHCreateDirectoryEx Application.hwnd, ПутьСоздаваемойПапки$, ByVal 0& ' создаём путь
End If
End Sub
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
Я указал в сообщении, что надо написать. Чтобы работало. Проверил. У меня работает.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.