PDA

View Full Version : کپی کردن فلدر با progressbar


User SA
پنج شنبه 08 مهر 1395, 14:30 عصر
سلام
کسی سورس کپی کرذن (فلدر) با progress bar رو داره؟؟؟
خیلی لازم دارم
m.4.r.m
پنج شنبه 08 مهر 1395, 22:19 عصر
Dim fso As Scripting.FileSystemObject
Set fso = New FileSystemObject
Debug.Print fso.GetFolder("D:\source").Files.Count
Set fso = Nothing





pbar.max = NumberOfFiles
pbar.value = pbar.value + 1