ProgressBar и копирование

[Dzhon]

Добрый день или ночь, у кого что!
Подскажите пожайлуста как привязать ProgressBar к копированию директории! Копирование произвожу с помощью FSO!
Помню что встречал подобный вопрос на топике, а сейчас найти немогу!
Заранее СПАСИБО!

[Amed]

"ВЫРЕЗАНО ЦЕНЗУРОЙ"

[Sebas]

Попробуй так: через FSO смотри размер исходной директории и начинай копировать... Потом по таймеру смотри размер новой директории и высчитывай процент прогресса операции: Progress = CurrentSize/OldSize * 100 'В процентах

Очень жаль, что человек с такой подписью, пишет такие вещи.
Заведомо НЕПРАВИЛЬНЫЙ ПУТЬ! Даже не пытайтесь так делать!

Есть два варианта:
1. Копировать файл по блокам байтов(медленно и теряются аттрибуты)
2. Использовать АПИ с обработкой обратного вызова

[Amed]

Уже понял всю глупость своего ответа, но инета не было => не успел затереть

Конечно же, такой путь неприемлем, а Sebas прав...

А почему теряются атрибуты? Выход:
1) запоминаем атрибуты старого файла в переменной
2) копируем старый файл в новый
3) делаем атрибуты нового файла, как старого...

[Sebas]

Я имел ввиду NTFS аттрибуты

[Amed]

Ах, NTFS... Сейчас в APIGuide пороюсь, может, найду что-нибудь...

[Dzhon]

Неплохой диалог! Но может быть кто-то даст совет отличный от "С ТОЧКИ ЗРЕНИЯ БАНАЛЬНОЙ ЭРУДИЦИИ......"?!

[Tauron]

Поясяню ответы предыдущих ораторов:
1. Либо копируй вручную (открываешь старый файл для чтения, новый для записи, читаешь байты из старого пишешт в новый). Минусы: относительно медленно, теряются NTFS-аттрибуты.
2. Используй CopyFileEx. Минусы: понятия не имею, как это использовать в бейсике. Если это вообще возможно. По идее возможно.

[alibek]

Код: Выделить всё

'API-Guide examples
'in a form (Form1)
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Ret As Long
    'set the graphics mode to persistent
    Me.AutoRedraw = True
    'print some text
    Me.Print "Click the form to abort the filecopy"
    'show the form
    Me.Show
    'start copying
    Ret = CopyFileEx("c:\verybigfile.ext", "c:\copy.ext", AddressOf CopyProgressRoutine, ByVal 0&, bCancel, COPY_FILE_RESTARTABLE)
    'show some text
    Me.Print "Filecopy completed " + IIf(Ret = 0, "(ERROR/ABORTED)", "successfully")
End Sub
Private Sub Form_Click()
    'cancel filecopy
    bCancel = 1
End Sub
'in a module
Public Const PROGRESS_CANCEL = 1
Public Const PROGRESS_CONTINUE = 0
Public Const PROGRESS_QUIET = 3
Public Const PROGRESS_STOP = 2
Public Const COPY_FILE_FAIL_IF_EXISTS = &H1
Public Const COPY_FILE_RESTARTABLE = &H2
Public 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
Public bCancel As Long
Public Function CopyProgressRoutine(ByVal TotalFileSize As Currency, ByVal TotalBytesTransferred As Currency, ByVal StreamSize As Currency, ByVal StreamBytesTransferred As Currency, ByVal dwStreamNumber As Long, ByVal dwCallbackReason As Long, ByVal hSourceFile As Long, ByVal hDestinationFile As Long, ByVal lpData As Long) As Long
    'adjust the caption
    Form1.Caption = CStr(Int((TotalBytesTransferred * 10000) / (TotalFileSize * 10000) * 100)) + "% complete..."
    'allow user input
    DoEvents
    'continue filecopy
    CopyProgressRoutine = PROGRESS_CONTINUE
End Function


[Dzhon]

Большой РАХМАТ Alibek!

[Dzhon]

Alibek! С файлом все прекрасно получается! А есть что-то подобное для Folder должно-же быть!? Если не трудно скинь пример!
В любом случае спасибо!

[Amed]

Alibek: в точку, я тот же пример нашёл, но инета не было... Выложить не вышло...

Dzhon: а с folder'ом надо сделать функцию, рекурсивно перебирающую заданную папку и копирующую каждый отдельный файл... Поищи примерчик поиска файлов в заданной директории... Разберись с алгоритмом поиска, а потом копируй каждый файл из найденных по маске "*.*" в свою папку...

Надеюсь, объяснил доходчиво?

[alibek]

Amed уже ответил, но поясню своими словами.
Перед копированием всей папки тебе надо вначале посчитать ее размер и запомнить в переменную (например, TotalDirSize). А еще нужно завести одну переменную, в которой будет отслеживаться уже выполненный прогресс (сколько байт скопированно), к примеру ProcessedDirSize. И, наконец, подправить процедуру CopyProgressRoutine, заменить на такую строчку:

Код: Выделить всё

Dim P As Single
P = ((ProcessedDirSize + TotalBytesTransferred*10000) / TotalDirSize)*100
Form1.Caption = Format$(P,"0.00") & "% complete...")


[Dzhon]

Всем большое СПАСИБО!