Как скрестить копирование файла и прогресс-бар?

Как можно визуально показать процесс копирования файла? А то большой файл долго копируется и надо показывать пользователю сколько уже выполнено.

0

Declare Function CopyFileEx Lib 'kernel32.dll' Alias 'CopyFileExA' (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As Long

· lpExistingFileName
Points to a null-terminated string that specifies the name of an existing file.

· lpNewFileName
Points to a null-terminated string that specifies the name of the new file.

· lpProgressRoutine
Specifies the address of a callback function of type LPPROGRESS_ROUTINE that is called each time another portion of the file has been copied. This parameter can be NULL. For more information on the progress callback function, see CopyProgressRoutine.

· lpData
Specifies an argument to be passed to the callback function. This parameter can be NULL.

· pbCancel
Points to a Boolean variable that can be used to cancel the operation. If this flag is set to TRUE during the copy operation, the operation is canceled.

· dwCopyFlags
Specifies how the file is to be copied. This parameter can be a combination of the following values:
COPY_FILE_FAIL_IF_EXISTS
The copy operation fails immediately if the target file already exists.
COPY_FILE_RESTARTABLE
Progress of the copy is tracked in the target file in case the copy fails. The failed copy can be restarted at a later time by specifying the same values for lpExistingFileName and lpNewFileName as those used in the call that failed.

Good luck!
Best regards
NickStaves

0