タイトル : 「例外」エラーについて 投稿日 : 2008/09/04(Thu) 15:20 投稿者 : monmon
いつもお世話になります。 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秒くらいで表示できますが、数回同じ動作をすると20秒くらいかかる ことがときおりあります。メモリー不足でしょうか。 e.Dispose() など 書いてありますが、どんなとき使えばよいのでしょうか |