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

解決

むに 2005-03-15 04:52:21 No: 120252

環境 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

むに 2005-03-15 05:11:49 No: 120253

書き直します。
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

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

むに 2005-03-15 05:19:36 No: 120254

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