Accessからのエクスポート先のエラー判定

下記のようにAccountというテーブルを
Ｘドライブのテストディレクトリにテキストでエクスポートするとします。

DoCmd.TransferText acExportDelim, "", "Account", "X:\test\test.txt"

このとき、Ｘドライブというのはネットワークドライブでネットワークにつないでいるときしか現れません。もしＸドライブが見えないとき（ネットワークにつながっていないとき）はエラーメッセージを出して
処理を抜けさせたいのですがどのように判断すればよいのでしょうか。よろしくお願いします。

No.2 ベストアンサー 回答者： O_cyan 回答日時： 2006/03/16 18:56

参照設定でMicrosoftScriptingRuntimeを参照してFileSystemObjectを使い

Dim Fso As New FileSystemObject
Dim FsoDrv As Variant

FsoDrv = Fso.DriveExists("X:\")
'ドライブが存在する場合はtrueが返るので
If FsoDrv = False Then
MsgBox "ネットワークドライブが存在しません。"
　・
　・
として処理を抜ける

こんな感じではダメでしょうか。

この回答へのお礼

これです！できました。
ありがとうございます。

お礼日時：2006/03/17 09:16

No.1 回答者： Lega 回答日時： 2006/03/16 17:45

Access2003を使用しています。

そのとおりの記述で、接続していないときは「パス‘X:\’は正しくありません。パス名に間違いがないことと、ファイルが置かれたサーバーに接続していることを確認してください。」というエラーメッセージが出ますが？？

フォームのコマンドボタンにイベントプロシージャで記述されているのでしょうか？（私はそうしています）

この回答へのお礼

ありがとうございます。
エラーメッセージをもうすこしユーザにわかりやすく補足したいのと、デバック画面を出させたくないので
どうにかエラーが起こる前に抜けさせたかったのですが、解決いたしました。ありがとうございます。

お礼日時：2006/03/17 09:18