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

質問

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

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

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

回答No.2

O_cyan · ベストアンサー

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

Dim Fso As New FileSystemObject
Dim FsoDrv As Variant

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

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

お礼

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

回答No.1

Lega

Access2003を使用しています。

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

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

お礼

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