ファイルをバイナリで読み込むには？？ (ID:116419)

名前

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

本文 VB6なら、↓コレでいけるんだけど・・・参考になるかな？ Dim iFile As Integer Dim bFile() As Byte Dim Index As Long bFile = "" iFile = FreeFile Open FileName For Binary Access Read Write Lock Read Write As #iFile bFile = InputB(LOF(iFile), #iFile) Close iFile With Text1 For Index = LBound(bFile) To UBound(bFile) .SelText = Right$("0" & Hex$(bFile(Index)), 2) DoEvents: Me.Caption = Index & "/" & UBound(bFile) Next Index End With