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

名前

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

本文 書き直します。 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 コモンダイアログのせいで取り出せないみたいです。