HOME > Q&A > Excel （VBA）

Excel （VBA）
Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 11 Pro : Microsoft 365)
作成したフォルダ内に別のフォルダを作成する方法
投稿日時: 23/01/25 16:45:07
投稿者: VBA初心者ちゃん

Sub 今日の日付のフォルダ作成()
    Dim fld As String
    fld = "パス"
    fld = fld & "\" & Format(Date, "yyyymmdd")
    If Not Format(Date, "yyyymmdd") = Dir(fld, vbDirectory) Then
        MkDir fld
    Else
        MsgBox "本日の日付のフォルダはすでに存在します"
        Exit Sub
    End If
End Sub
 
↑のマクロで作られたフォルダ（今日の日付が付いたフォルダ）に別のフォルダ（例えばフォルダA）を作成するには、どのようなコードを足せば良いでしょうか？
 
よろしくお願いいたします。。
回答
投稿日時: 23/01/25 17:18:54
投稿者: WinArrow

VBA初心者ちゃん さんの引用:

↑のマクロで作られたフォルダ（今日の日付が付いたフォルダ）に別のフォルダ（例えばフォルダA）を作成するには、どのようなコードを足せば良いでしょうか？
 
よろしくお願いいたします。。

> MkDir fld
 
の次の行に
        MkDir fld & "\フォルダＡ"
 
投稿日時: 23/01/25 17:26:32
投稿者: VBA初心者ちゃん

WinArrowさん
 
ありがとうございます!!
できました。