Excelファイルのあるフォルダにbackupというフォルダを作成してさらに日付・時間(YYYYMMDD_HHNNSS)のフォルダを作成する

＜分類：フォルダ作成＞
＜使用例：Excelファイルのあるフォルダにbackupというフォルダを作成して、さらに日付・時間(YYYYMMDD_HHNNSS)のフォルダを作成する＞
＜プログラム例＞

Sub 使用例()
   Dim s As String
   Dim rtn As String

  '作成するフォルダ名
   s = "backup"

   Call Excelファイルのあるフォルダに任意のフォルダと日付時間のフォルダを作成(s, rtn)

   MsgBox ("作成したフォルダは" & s & "です")
   MsgBox ("その中に作成した日付・時間のフォルダパスは" & rtn & "です")

End Sub


Sub Excelファイルのあるフォルダに任意のフォルダと日付時間のフォルダを作成(p1, r1)

'p1:任意のフォルダ名
'r1:作成した任意のフォルダ￥日付・時間のフォルダパスを設定

    Dim cfolder_path1 As String
    Dim cfolder_path2 As String
    
    Dim aFso As Object
    Set aFso = CreateObject("Scripting.FileSystemObject")
    
   '任意のフォルダのフォルダパスを設定
    cfolder_path1 = ThisWorkbook.Path & "\" & p1
   '任意のフォルダ￥日付・時間のフォルダパスを設定
    cfolder_path2 = cfolder_path1 & "\" & Format(Now, "yyyymmdd_hhnnss")
   'r1:リターン値を設定
    r1 = cfolder_path2
   
   'フォルダの存在確認
    If aFso.FolderExists(cfolder_path1) Then
      '作成しようとしたフォルダはすでに存在している
       If aFso.FolderExists(cfolder_path2) Then
         '作成しようとした日付・時間のフォルダはすでに存在している
       Else
          aFso.CreateFolder (cfolder_path2)
       End If
    Else
      '作成しようとしたフォルダは存在しないので作成する
       aFso.CreateFolder (cfolder_path1)
       aFso.CreateFolder (cfolder_path2)
    End If
    
End Sub