いつもお世話になります。
vb2008でドライブ名を取得するため下のように作りましたが
cpath に"vb9tosyodrct.txt"がないときに「例外」エラーがでます。
よい方法はないでしょうか。

For ii = 99 To 110
            fd = Chr(ii)
            cpath = fd & ":\"
            On Error GoTo b1

            FileOpen(1, cpath & "vb9tosyodrct.txt", OpenMode.Input)
            Input(1, vb9)
            FileClose(1)
            GoTo ad
b1:
            Resume b2
b2:
            If cpath = "o:\" Then MsgBox("vb9tosyodrct.txt ファイルを見つけられ
　　　　　　　　　ませんでした。") : End
        Next ii
ad:
        tosyodir = vb9

　もうひとつ、DATA（アクセス）表示のためのボタンをつくり、実行していますが
　通常は1秒くらいで表示できますが、数回同じ動作をすると２０秒くらいかかる
　ことがときおりあります。メモリー不足でしょうか。
　e.Dispose() など　書いてありますが、どんなとき使えばよいのでしょうか

> vb2008でドライブ名を取得するため下のように作りましたが

ここのTips集のドライブ関係の 利用可能なドライブを列挙する ではだめですか？

# 何か懐かしいようなコードですね。

花ちゃんさま
早速のアドバイスありがとうございます。

> ここのTips集のドライブ関係の 利用可能なドライブを列挙する ではだめですか？

説明不足でした。

"vb9tosyodrct.txt"　のファイルがどのドライブにあるのかを調べるのが目的です。
よろしくお願いします。

> "vb9tosyodrct.txt"　のファイルがどのドライブにあるのかを調べるのが目的です。

それもここのTips集にあります。
メニューのファイル関係のファイルの有無... 及びメッセージの項を参照　
http://hanatyan.sakura.ne.jp/dotnet/index.html

そもそも投稿されたコードが、VB の初期の頃(VB6.0以前) のコードで、エラーの
部分だけを修正するとかより、全面的に書き直す必要があるかと思います。
(投稿されたコード以外でもおそらく、同様の事が言えるのではないでしょうか）

# ご覧になっているようですが、返事がないのなら以後レスは致しません。

花ちゃんさま

> それもここのTips集にあります。
> メニューのファイル関係のファイルの有無... 及びメッセージの項を参照　
> http://hanatyan.sakura.ne.jp/dotnet/index.html
>
「Tips集」を参考にさせていただき、「例外エラー」を回避できました。
他の部分も変更するつもりです。ありがとうございました。