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

名前

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

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