アクセスＶＢＡ

質問

アクセス2003を使っています。
ＶＢＡでＣドライブ直下にあるＡフォルダが無ければ、Ａフォルダを作り、もしＡフォルダがあればこの処理は終了して、同じプロシージャ内にある次の処理に移りたいのですが、どうすれば良いでしょうか？

よろしくお願いします。

回答No.2

myRange · ベストアンサー

'-------------------------------------
Sub Test()
　If Dir("C:\A", vbDirectory) = "" Then
　　　MkDir "C:\A"
　End If
End Sub
'-------------------------------------

以上ここまで。

回答No.1

n-jun

Dir関数でチェックしてみるとか。

If Dir("C:\A", vbDirectory) = "" Then MkDir ("C:\A")
' ～その後の処理