コンパクトフラッシュドライブ

解決

---

環境  VB6 SP5
WinXP

OS上でコンパクトフラッシュを認識させて
VBから下のプログラムを実行後
コンパクトフラッシュを取ろうとすると
「デバイス'汎用ボリューム'を今停止できません。後でデバイス停止をもう一度実行してください。」
アプリを終了させるとエラーは出ないのですが
アプリを終了させる前にコンパクトフラッシュを抜き取りたいのですが
どのようにすればいいのでしょうか？
Private Sub Command1_Click()
Dialog1.ShowOpen
Dim Temp As Long
Dim Fno As Long
    Fno = FreeFile
        Open Dialog1.FileName For Binary As #Fno
            Get #Fno, , Temp
        Close #Fno
End Sub

編集 削除

---

書き直します。
Private Sub Command1_Click()
Dim Temp As Long
Dim Fno As Long
CommonDialog1.ShowOpen

    Fno = FreeFile
        Open CommonDialog1.FileName For Binary As #Fno
            Get #Fno, , Temp
        Close #Fno
End Sub

コモンダイアログのせいで取り出せないみたいです。

編集 削除

---

ChDrive "c"
でドライブを変更することによって解決いたしました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。