フォルダを自動作成してデータをセーブする方法

解決

---

現在独自のスケジューラをつくっています。
予定やその日の日記をそれぞれ別のフォルダに保存できるようにしたいです。
指定したフォルダやコモンダイアログを使った保存はできるのですが、実行ファイルの存在するフォルダのなかに、例えば"予定”や"日記”というフォルダがなければ自動でフォルダを作成しその中に保存するやりかたを教えてください。
説明がうまくなくてすみません。

編集 削除

---

MkDir App.Path & "\予定"

という感じですね。

編集 削除

---

匿名1412さん。さっそくありがとうございます。
パスの指定は、
MyPath =  App.Path 
    
    If Right(MyPath, 1) <> "\" Then
        MyPath = MyPath & "\"
    End If
このようにやっていたのですが、最初のApp.Pathを匿名1412さんにおしえていただいた文に置き換えたのですが構文エラーが起きてしまいました。
どこか間違っているのでしょうか？

編集 削除

---

パスの指定は今までどおりに戻したほうが良いですよ。

    '予定フォルダのパスを取得
    MyPath =  App.Path
    If Right(MyPath, 1) <> "\" Then
        MyPath = MyPath & "\"
    End If
    MyPath = MyPath & "予定"
    
    'フォルダがなければ作成
    If Len(Dir$(MyPath, vbDirectory)) = 0 then
        MkDir MyPath
    End If

こんな感じッスかね、動作テストしてないけど。

編集 削除

---

できました。
完璧に動作しております。
ありがとうございました。
これで一歩前進です。

編集 削除

---

解決ボタン押すの忘れてました。
もうしわけない。
解決しました。
ありがとうございました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。