コンパクトフラッシュドライブ (ID:120252)

名前

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

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