非同期処理でファイルにデータを書き出すには？ (ID:85647)

名前

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

本文 魔界の仮面弁士さん回答ありがとうございます。 ファイルの作成は大きなファイルのコピーで、その進行状況を表示し その途中でキャンセルが出来るようにしたかったのです。 案１で実現しようと思いますが、数KBずつ読んでは書くという処理を 考えています。 この間でキャンセルなどのボタンクリックを検出するにはどうすれば いいのでしょうか？ Dim bytDat() As Byte Dim intFS As Integer Dim intFD As Integer Dim lngSizeS As Long Dim lngPt As Long Dim BufferSize As Long BufferSize = 64& * 1024& intFS = FreeFile Open SrcFile For Binary As #intFS intFD = FreeFile Open DstFile For Binary As #intFD lngSizeS = LOF(intFS) ReDim bytDat(BufferSize - 1) lngPt = 0 Do While lngPt < lngSizeS If lngPt + BufferSize > lngSizeS Then ReDim bytDat(lngSizeS - lngPt) End If Get #intFS, , bytDat Put #intFD, , bytDat lngPt = lngPt + BufferSize Loop Close #intFS Close #intFD