Dosya kopyalamak-Progresbar

[k0081]

merhaba arkadaşlar;

bu kodlamaya progresbar ı ekleyip nasıl kullanabilirim.. kodları yazdım fakat, progresbar kendi süresinde çalışıyor... gerçek dosya kopyalama süre bilgisini vermiyor.. ( 0% ..... 100 % )

yardımcı arkadaşa şimdiden teşekkürler.

Private Sub CommandButton1_Click()
Dim yol As String, FSO As Object, Klasor_Adi As String
Dim a
Set FSO = CreateObject("Scripting.FileSystemObject")

'... progress bar ....
say = FSO.Getfolder(CurDir).Files.Count
MsgBox "Toplam sayı:" & say
' For i = 1 To 10000
 '       ProgressBar1.Value = (i / 10000) * 100
  '      Label1.Caption = Format(Progbar.ProgressBar1.Value, "%00")
   '     DoEvents
    'Next i
   
'...............

a = FSO.FolderExists("C:\deneme")
If a = True Then
yol = CurDir
Klasor_Adi = (FSO.GetBaseName(yol))
FSO.createfolder "C:\deneme\" & Klasor_Adi
FSO.copyfolder CurDir, "C:\deneme\" & Klasor_Adi

MsgBox "deneme klasörüne Dosyalar kopyalandı.", vbInformation
Else
MsgBox "deneme isiminde bir klasör yok", vbCritical
End If

End Sub

 

[hımmmmmmmm]

'...........................
ProgressBar1.Max = [COLOR="Red"]1500[/COLOR]

For I = 1 To [COLOR="Red"]1500[/COLOR]  
   ProgressBar1.Value = I
Next I

'............................

 

[k0081]

'...........................
ProgressBar1.Max = [COLOR="Red"]1500[/COLOR]

For I = 1 To [COLOR="Red"]1500[/COLOR]  
   ProgressBar1.Value = I
Next I

'............................

hocam göndermiş olduğunuz kodları uyguladım. Fakat olmadı.

 

[Zeki Gürsoy]

Bence, önce tüm dosyaların boyutunu byte cinsinden hesaplattırın. Binary mod dosyalama tekniğiyle, get-put metotlarıyla eş zamanlı olarak kopyalama işlemi yaptırırsınız.

Böyle olmazsa, ör: toplamda kopyalanacak iki dosyadan biri 1 mb, diğeri 2gb olsun. Progressbar iki adımda dolacak ancak süre tahmin edilemeyecek.

 

[k0081]

Bence, önce tüm dosyaların boyutunu byte cinsinden hesaplattırın. Binary mod dosyalama tekniğiyle, get-put metotlarıyla eş zamanlı olarak kopyalama işlemi yaptırırsınız.
.....................
QUOTE]

Evet hocam ilk önerinizi bende düşündüm. ama nasıl bir kodlama yapmalıyım onu bilmiyorum. epey bir araştırma yaptım fakat düzgün bir sonuç alamadım henüz.. yani benim amacım Progressbar ın gerçek zamanda ilerlemesi.. dosyalara bağlı kalarak... bununla ilgili bir örnek kod gönderebilirmisiniz hocam ?