１９．フォルダを作成する方法−２



＜　使用用途　＞
フォルダを作成する（３２ビット版）

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ ダウンロード・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数のCreateDirectoryExを使用します。
CreateDirectoryEx＝＞フォルダを作成する
　　＜引数＞
　　　　lpTemplateDirectory：　　　元のディレクトリ
　　　　lpNewDirectory：　　　　　　新しいディレクトリ　
　　　　lpSecurityAttributes：　　　SECURITY_ATTRIBUTES構造体
　　＠戻り値＠　　
　　　　正常終了は1　　　　

<　ＳＡＭＰＬＥ　＞
’'C:\WindowsにPAPYフォルダを作成する処理です
’標準モジュール
Public Declare Function CreateDirectoryEx Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Public Type SECURITY_ATTRIBUTES
　　nLength As Long
　　lpSecurityDescriptor As Long
　　bInheritHandle As Long
End Type

’フォーム内の処理
Private Sub Command1_Click()
　
　Dim TemplateDirectory As String
　Dim NewDirectory As String
　Dim SA As SECURITY_ATTRIBUTES　
　Dim Ret As Long

　　TemplateDirectory = "C:\"
　　NewDirectory = "\Windows\PAPY"

　　Ret = CreateDirectoryEx(TemplateDirectory, NewDirectory, SA)

End Sub