新規フォルダの作成

解決

---

Open "C:\test\a.txt" For Output As nFile

と保存する場合、testというフォルダが無い場合
パスがありませんと出てプログラムがSTOPしてしまいます。

testというフォルダが無い場合勝手に作ってそこにa.txtを
保存するようにはどうしたら良いのでしょうか？

編集 削除

---

パスがない場合はパスをつくればよいです。
MkDir "c:\test"

編集 削除

---

フォルダを勝手につくる方法はいう質問でしたね。
勝手につくる方法はわかりません。ごめんなさい。

編集 削除

---

●事前にフォルダ存在チェックをして、なければ作る。
か、
●エラー処理でフォルダを作ってリトライする。
かのどちらかでしょう。

編集 削除

---

＞［補足お願いします］
ありがとうございます。MkDir "c:\test"で作れるとOKです。

事前にフォルダの存在をチェックしたいのですが
どのようなコードを書けば事前にフォルダーチェックが出来ますでしょう？

if c:test  ←こんなんじゃダメっすよね^^;;すみません。

編集 削除

---

Dir関数を使用しましょう。
if Dir("C:\test.csv") <> '' then

編集 削除

---

＞出来ません、、

やったのですがなぜかエラーになります？
T_T;  すみません

編集 削除

---

こうですね。
If Dir("C:\test") = "" Then
    MkDir "c:\test"
End If

編集 削除

---

エラー対策に・・・

    If Dir$("C:\test", vbDirectory) = "" Then

とした方が安全・・・

以上。

編集 削除

---

間違えました。こうですね。
If Dir("C:\test\") = "" Then
    MkDir "c:\test"
End If

編集 削除

---

12:15書込は無視して下さい。

編集 削除

---

出来ました！ありがとうございました。

編集 削除

---

名前

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

本文

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