'-------------------------

'作成するフォルダ名をyyyymmddとする

  str_dir_name = Format(Date, "yyyymmdd")

  保存先 = 保存先 & str_dir_name & "\"

'フォルダの存在確認

  Dim fso

  Set fso = CreateObject("Scripting.FileSystemObject")

  If (fso.FolderExists(保存先)) Then

  MsgBox "本日付のバックアップファイルは出力済です。", vbCritical, "ご確認ください"

  Exit Sub

  End If

'フォルダ作成

  MkDir (保存先)