Accessのフォルダ作成に関して ACCESS初心者で、行き詰っています。 どなたか解決策を教えて

Accessのフォルダ作成に関して


ACCESS初心者で、行き詰っています。
どなたか解決策を教えて頂けないでしょうか。

ACCESSでフォームにボタンを配置し、そのボタンを押すと
ACCESSファイルがある場所に"資料"という名称のフォルダを作成できるようにしました。
また、すでにファイルが存在する場合は"既にフォルダが存在している可能性があります。"と
メッセージを表示する様にしています。
この状態では上手くフォルダ作成まで確認出来ています。

Private Sub フォルダ作成ボタン_Click()
On Error GoTo ErrExit
MkDir (Application.CurrentProject.Path & "\資料")
Exit Sub

ErrExit:
MsgBox "既にフォルダが存在している可能性があります。"

End Sub

追加で作成するフォルダを"資料"のみではなく、"資料\メール文書"と言うように
次の階層まで作成したく、以下の様に変更しましたが、エラーメッセージが出て上手くいきません。
どなたか教えて頂けないでしょうか。

Private Sub フォルダ作成ボタン_Click()
On Error GoTo ErrExit
MkDir (Application.CurrentProject.Path & "\資料\メール文章")
Exit Sub

ErrExit:
MsgBox "既にフォルダが存在している可能性があります。"

No.2 ベストアンサー 回答者： かわごえ 回答日時： 2020/03/12 14:58

MkDir (Application.CurrentProject.Path & "\資料")

MkDir (Application.CurrentProject.Path & "\資料\メール文章")
と２段階にしては

この回答へのお礼

難しく考え過ぎてました。
二行にすると簡単に作成出来ました！
ありがとうございます！

お礼日時：2020/03/13 14:50

No.3 回答者： めぐみん_ 回答日時： 2020/03/12 16:09

Dir関数で事前にフォルダの有無をチェックしてからとか？

無論階層毎に。

https://www.feedsoft.net/access/func/func39.html

この回答へのお礼

参考になりました！
ありがとうございます！

お礼日時：2020/03/13 14:49

No.1 回答者： poco_2 回答日時： 2020/03/12 14:19

そのとき資料というフォルダは既にあるのでしょうか？