Функция CreateDirectory

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

Платформа

CreateDirectory создает новую папку на диске. Также вы можете установить аттрибуты безопасности для вновь созданной папки,если это позволяет операционная система.

Возвращаемое значение

В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки). В успешном случае функция возвращает значение отличное от нуля.

Параметры

lpPathName
Имя для новой папки.
lpSecurityAttributes
Windows NT, 2000: Аттрибуты безопасности для новой папки. Windows 95, 98, CE: Этот параметр игнорируется.

Пример

' Создаем новую папку C:\RussianProject и
' устанавливаем аттрибуты по умолчанию.
Dim Security As SECURITY_ATTRIBUTES  ' структура аттрибутов безопасности
Dim retval As Long  ' возвращаемое значение

' Создаем папку.
retval = CreateDirectory("C:\RussianProject", Security)
'Если CreateDirectory вернул 0, значит ошибка
    If retval = 0 Then MsgBox "Ошибка : Не могу создать папку !", vbCritical + vbOKOnly

Схожие функции
CreateDirectoryEx, RemoveDirectory
Категория
Файлы

В начало.