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

解決

ソシム 2003-02-20 02:44:38 No: 106075

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

匿名1412 2003-02-20 02:46:21 No: 106076

MkDir App.Path & "\予定"

という感じですね。

ソシム 2003-02-20 03:17:37 No: 106077

匿名1412さん。さっそくありがとうございます。
パスの指定は、
MyPath =  App.Path

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

nanashi 2003-02-20 03:55:45 No: 106078

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

    '予定フォルダのパスを取得
    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

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

ソシム 2003-02-20 04:30:13 No: 106079

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

ソシム 2003-02-20 19:07:16 No: 106080

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