Функция CreateDirectoryEx

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

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

lpTemplateDirectory

Имя папки, которая будет использоваться как шаблон для аттрибутов при создании новой папки

lpNewDirectory

Имя для новой создаваемой папки

lpSecurityAttributes

Аттрибуты безопасности для новой папки

Пример

' Создаем новую папку 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)

Смотри также

CreateDirectory, RemoveDirectory

Категория

Файлы

Реклама