Функция CreateDirectoryEx

Declare Function CreateDirectoryEx Lib "kernel32.dll" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Параметры

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

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

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

Параметры

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

Пример

' Создаем новую папку C:\RussianProject\Papka и
' устанавливаем аттрибуты безопасности по умолчанию.
'  Папка будет иметь аттрибуты папки
'  C:\Recycled ( "Корзина") ,
' которая имеет аттрибуты Скрытый и Системный.
Dim secattr As SECURITY_ATTRIBUTES  ' структура аттрибутов безопасности
Dim retval As Long  ' возвращаемое значение

' устанавливаем желаемы аттрибуты безопасности
secattr.nLength = Len(secattr)  ' размер структуры
secattr.lpSecurityDescriptor = 0  ' уровень безопасности по умолчанию
secattr.bInheritHandle = 1  ' стандартная установка

' Создаем папку, используя папку C:\Recycled как шаблон.
retval = CreateDiectoryEx("C:\Recycled", "C:\RussianProject\Papka", secattr)

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

В начало.