多階層フォルダ(ディレクトリ)の作成
フォルダを作成する場合、親フォルダの下にサブフォルダ作成します。
これらは、親のフォルダから順次作成していく必要があります。
MkDirステートメント
FileSystemObject
Win32 API(SHCreateDirectoryEx,MakeSureDirectoryPathExists)
多階層フォルダ(ディレクトリ)の作成 の具体例
年、月、日
3階層のフォルダで管理するとします。

Sub sample()
Dim root As String
Dim yyyy As String
Dim mm As String
Dim dd As String
root = "C:\backup"
yyyy = Format(Year(Date), "0000年")
mm = Format(Month(Date), "00月")
dd = Format(Day(Date), "00日")
Dim rtn As Long
rtn = CreateDirectory(root, yyyy, mm, dd)
Select Case rtn
Case 0
MsgBox "フォルダを作成しました。"
Case 1
MsgBox "フォルダは存在します。"
Case Else
MsgBox "フォルダの作成に失敗しました。"
End Select
End Sub
上記のVBAで使用する関数FunctionのサンプルVBAになります。
以下は、CreateDirectoryのそれぞれのVBAコードになります。
Dir関数とMkDirステートメントで多階層フォルダの作成
Function CreateDirectory(ParamArray arg()) As Long
On Error GoTo ErrExit
If Dir(Join(arg, "\"), vbDirectory) <> "" Then
CreateDirectory = 1
Exit Function
End If
Dim ary As Variant
Dim i As Long
For i = LBound(arg) To UBound(arg)
ary = arg
ReDim Preserve ary(i)
If Dir(Join(ary, "\"), vbDirectory) = "" Then
MkDir Join(ary, "\")
End If
Next
CreateDirectory = 0
Exit Function
ErrExit:
CreateDirectory = 9
End Function
Dir関数とMkDirステートメントの詳細は以下を参照してください。
FileSystemObjectで多階層フォルダの作成
Function CreateDirectory(ParamArray arg()) As Long
On Error GoTo ErrExit
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Join(arg, "\")) Then
CreateDirectory = 1
Set fso = Nothing
Exit Function
End If
Dim ary As Variant
Dim i As Long
For i = LBound(arg) To UBound(arg)
ary = arg
ReDim Preserve ary(i)
If Not fso.FolderExists(Join(ary, "\")) Then
Call fso.CreateFolder(Join(ary, "\"))
End If
Next
Set fso = Nothing
CreateDirectory = 0
Exit Function
ErrExit:
CreateDirectory = 9
End Function
FileSystemObjectの詳細については以下を参照してください。
Win32 APIで多階層フォルダの作成
SHCreateDirectoryEx
Declare PtrSafe Function SHCreateDirectoryEx Lib "shell32" _
Alias "SHCreateDirectoryExA" _
(ByVal hwnd As LongPtr, _
ByVal pszPath As String, _
ByVal psa As LongPtr) As Long
hwnd
最大248文字です。
セキュリティー属性を設定する必要がない場合は、このパラメーターをNULLに設定してください。
183 : フォルダが既に存在している場合
その他 : 何らかのエラーが発生した場合
Function CreateDirectory(ParamArray arg()) As Long
Dim rtn As Long
rtn = SHCreateDirectoryEx(0&, Join(arg, "\"), 0&)
Select Case rtn
Case 0
CreateDirectory = 0
Case 183
CreateDirectory = 1
Case Else
CreateDirectory = rtn
End Select
End Function
MakeSureDirectoryPathExists
Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp" _
(ByVal lpPath As String) As Long
lpPath
最大248文字です。
パスの最後がファイル名ではなくディレクトリである場合、文字列はバックスラッシュ(\)文字で終了する必要があります。
0 : 関数が失敗した場合
Function CreateDirectory(ParamArray arg()) As Long
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Join(arg, "\")) Then
CreateDirectory = 1
Set fso = Nothing
Exit Function
End If
Dim rtn As Long
rtn = MakeSureDirectoryPathExists(Join(arg, "\") & "\")
If rtn = 1 Then
CreateDirectory = 0
Else
CreateDirectory = 9
End If
End Function
MakeSureDirectoryPathExistsはフォルダが存在しても関数自体が成功として0が戻ります。
そこで上記VBAでは、フォルダの存在確認はFileSystemObjectを使用しています。
"C:\backup\2020年\07月\31日"
この場合は、最後の"31日"は作成されません。
つまり、"フルパス+ファイル名"これで指定してフォルダを作成できるという事になります。
同じテーマ「マクロVBAサンプル集」の記事
ハイパーリンクからファイルのフルパスを取得する
ボタンに表示されているテキストを取得(Application.Caller)
Excelの表をPowerPointへ図として貼り付け
VBAで表やグラフをPowerPointへ貼り付ける
フォルダ(サブフォルダも全て)削除する、Optionでファイルのみ削除
Shift_JISのテキストファイルをUTF-8に一括変換
VBAコードの全プロシージャー・プロパティ一覧を取得
数式バーの高さを数式の行数で自動設定
図形オートシェイプ(Shape)の複数選択
GoogleスプレッドシートをExcelにインポートする
多階層フォルダ(ディレクトリ)の作成
新着記事NEW ・・・新着記事一覧を見る
TRIMRANGE関数(セル範囲をトリム:端の空白セルを除外)|エクセル入門(2024-08-30)
正規表現関数(REGEXTEST,REGEXREPLACE,REGEXEXTRACT)|エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない|エクセル雑感(2024-04-11)
ブール型(Boolean)のis変数・フラグについて|VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する|VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次|エクセルの神髄(2024-03-20)
VBA10大躓きポイント(初心者が躓きやすいポイント)|VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。|エクセル雑感(2024-02-17)
初級脱出10問パック|VBA練習問題(2024-01-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.繰り返し処理(For Next)|VBA入門
4.変数宣言のDimとデータ型|VBA入門
5.RangeとCellsの使い方|VBA入門
6.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
7.メッセージボックス(MsgBox関数)|VBA入門
8.セルのクリア(Clear,ClearContents)|VBA入門
9.ブック・シートの選択(Select,Activate)|VBA入門
10.条件分岐(Select Case)|VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- 多階層フォルダ(ディレクトリ)の作成
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。