α (ID:74608)

名前

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

本文 すみません。 >ファイル入出力系のモジュールをVBのコンテンツで >公開してますが無かったことに、ってことは これなんですが、 >うえの二つは何を表しているのですか？ の打ち消しです。ごめんなさい。 たかみちえさんのURLを参考にして作りました。 この方法でやると徐々に遅くなっていきます。 Private Sub Command1_Click() Dim byBuf() As Byte 'ファイル名はお好きに変えて下さい Open "C:\WINDOWS\Calc.exe" For Binary As #1 ReDim byBuf(1 To LOF(1)) '変数を1番からファイルの大きさ(Byte)でまで再宣言 Get #1, , byBuf 'ファイル番号1をbyBufへExport bar.Max = LOF(1) '進行状況のバーの最大値をファイルの長さに For i = 1 To LOF(1) If i <> 1 Then Text2.Text = Text2.Text & " " & Hex(byBuf(i)) 'i番目を読み出し、追加していきます。 If i = 1 Then Text2.Text = Text2.Text & Hex(byBuf(i)) If i = 1000 Then DoEvents '1000演算に一回自由を与えます。 bar.Value = i 'バーの進行状態 Next i Close End Sub 試してみてください。