C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[1]: ファイルコピー中の経過表示

分類:[VB6 以前]　

FileCopy "c:\tmp.csv", "c:\tmp\tmp.csv"
この様にしてサイズの大きいファイルをコピーしていますが、
経過を表示する事は可能でしょうか。プログレスバーでも
パーセントとかのみの表示でも構いません。
なんらかの表示がほしいです。

考え方として、1秒間に何byte送信されるか、ファイルの容量が何byteか。
これがわかればプログレスバーは作成できます。
1秒間に送信されるbyte数は決めの問題ですので、要件作成者に伺ってください。

■No57620 (どめすとさん) に返信
別回答として SHFileOperation API を使用する。

・サンプル(テキストボックス×２、コマンドボタン×１)
'--モジュール側
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Public Const FO_COPY As Long = &H2
Public Const FOF_MULTIDESTFILES = &H1

'-- Form側
Private Sub Command1_Click()
Dim Ret As Long
Dim SH As SHFILEOPSTRUCT

With SH
.hwnd = Me.hwnd
.wFunc = FO_COPY
.pFrom = Text1.Text 'コピー元ファイル名
.pTo = Text2.Text 'コピー先ファイル名
.fFlags = FOF_MULTIDESTFILES
End With

Ret = SHFileOperation(SH)
End Sub

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[1]: ファイルコピー中の経過表示

過去ログには書き込み不可