こんにちは、いつも拝見しております。

当方の環境は XP VB6SP6 です。

コモンダイアログからUSBメモリ内のファイルを開くと
タスクバーのハードウェアの安全な取り外しから
USBメモリを実行することが出来ません。
『デバイス'汎用ボリューム'を今停止できません。
後でデバイスの停止をもう一度実行してください。』
というメッセージが表示します。

VBソフトを終了するか、コモンダイアログを再実行して
USBメモリ以外のドライブのファイルを開かないと安全な取り外しができません。

これ以外で良い方法はありませんか？宜しくお願いします。

Private Sub Command1_Click()
CommonDialog1.InitDir = "C:\"
CommonDialog1.ShowOpen
End Sub

> VBソフトを終了するか、コモンダイアログを再実行して
> USBメモリ以外のドライブのファイルを開かないと安全な取り外しができません。
> これ以外で良い方法はありませんか？宜しくお願いします。

ChDrive/ChDir を用いて、カレントドライブ/カレントディレクトリーを
USB メモリー以外の場所(C:\ とか App.Path とか)に移動しておいては如何でしょう。

# 未検証

ChDrive("C")で解決しました。
モヤモヤが解消してスッキリです。ありがとうございました！

解決したようで何よりです。

> ChDrive("C")で解決しました。
細かい事ですが、正確には、
　ChDrive "C"
または
　Call ChDrive("C")
と記述します。


括弧を付けて
　ChDrive ("C")
でも一応動作しますが、これは、
　driveLetter = "C"
　ChDrive driveLetter
という処理を
　driveLetter = ("C")
　ChDrive driveLetter
と記述しているのと同じ意味になります。

勉強になりました。ありがとうございます。
ChDriveの話題最近のスレッドにもありましたね。
検索、調べ方がちょっと甘かったようです。以後、気をつけます。ではでは〜＾＾