６．深い階層のフォルダーを一発で作成する

１．深い階層のフォルダーを一発で作成する ２． ３． ４． ５． ６． ７．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：　　　　　　　　　　　　　　　　　　　　　　 参照設定方法参照 使用 API：SHCreateDirectoryEx その他　：このサンプルは、 Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。 　　　　：

１．深い階層のフォルダーを一発で作成する

Option Explicit　　 'SampleNo=420　2005.06.17 Private Declare Function SHCreateDirectoryEx Lib _ 　　"shell32" Alias "SHCreateDirectoryExA" ( _ 　　ByVal hwnd As Long, _ 　　ByVal pszPath As String, _ 　　ByVal psa As Long) As Long Private Const ERROR_FILE_EXISTS = 80 Private Const ERROR_ALREADY_EXISTS = 183 Private Sub Command1_Click() 　　Dim Ret As Long 　　Ret = SHCreateDirectoryEx(0&, "c:\Test\Test1\test2\Test3", 0&) 　　If Ret = 0 Then 　　　　MsgBox "ディレクトリを作成しました。" 　　ElseIf Ret = ERROR_FILE_EXISTS Or Ret = ERROR_ALREADY_EXISTS Then 　　　　MsgBox "ディレクトリは存在しています。" 　　Else 　　　　MsgBox "ディレクトリを作成できませんでした。" 　　End If End Sub 通常深い階層のフォルダーを作成する場合、順番に作成しないと作成できません。SHCreateDirectoryEx API 関数を使用すれば、深い階層のフォルダーが一発で作成できます。又、第３引数には必要によりSECURITY_ATTRIBUTES を設定して下さい。

２．

３．

４．

５．

６．

７．

検索キーワード及びサンプルコードの別名(機能名)