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

名前

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

本文 パスの指定は今までどおりに戻したほうが良いですよ。 '予定フォルダのパスを取得 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 こんな感じッスかね、動作テストしてないけど。