深い階層のフォルダーを作成する　　玄関へお回り下さい。
深い階層のフォルダーを一発で作成する　　　　　　　　　(420)
通常深い階層のフォルダーを作成する場合、順番に作成しないと作成できません。SHCreateDirectoryEx API 関数を使用すれば、深い階層のフォルダーが一発で作成できます。
使用コントロール CommandButton　1個
　 Option Explicit

Private Declare Function SHCreateDirectoryEx Lib _
　　"shell32" Alias "SHCreateDirectoryExA" ( _
　　ByVal hwnd As Long, _
　　ByVal pszPath As String, _
　　ByVal psa As Long) As Long

Private Sub Command1_Click()
　　Dim Ret As Long
　　Ret = SHCreateDirectoryEx(Me.hwnd, "c:\Test\Test\001", 0&)

　　If Ret = 0 Then
　　　　MsgBox "ディレクトリを作成しました。"
　　ElseIf Ret = 80 Or Ret = 183 Then
　　　　MsgBox "ディレクトリは存在しています。"
　　Else
　　　　MsgBox "ディレクトリを作成できませんでした。"
　　End If
End Sub

　
第１引数にMe.hwnd を設定しておりますが、0& でもOK です。 又、第３引数には必要により
SECURITY_ATTRIBUTES を設定して下さい。　詳しくは、下記等を見て下さい。
　　http://tinyurl.com/8lpfv
　　






2005/6/17