Predict FileCopy Process Time 2

[Rofeu]

Hello,

I've some code that copies the content of a folder into another folder. However, the size can be quite large and I'd like to give the user an estimate of how long it will take beforehand.

Now, it's easy enough to get the size of the folder via the filesystemobject, but I'm at a loss as to what to divide that with.

I could do some copying in explorer and mark down the size and time indication, but I don't think that'll be too representative.

Does anyone have any suggestions how to best go about this?

Cheers,

Roel

 

[SkipVought]

Maybe run a time test?

Although, time over a network, depends on the traffic.

Skip,

_{When a diminutive clarvoyant had disappeared from detention, headlines read...
Small Medium at Large}

 

[combo]

You could consider to use shell32.dll (Microsoft Shell Controls And Automation) to copy, no time estimation, but you can display progress bar (with options):

http://www.microsoft.com/technet/scriptcenter/guide/sas_fil_vrwr.mspx?mfr=true

combo

 

[Rofeu]

combo,

that was exactly what I was looking for and in fact it does give an estimation on time remaining. Have a star for that!

Skip,
I did some time tests, but as you say, it really depends on the network traffic. That's why said that they would not be too representative.

Cheers,

Roel

 

[combo]

thanks!

combo

 

[SkipVought]

Merry Christmas, combo! ==> *

Skip,

_{When a diminutive clarvoyant had disappeared from detention, headlines read...
Small Medium at Large}

 

[combo]

Thsnks Skip, Merry Christmas!

combo

 

[stefen054]

hi Rofeu

very impressed with your question and soultion gave by combo. I tried to reproduce the same. but i am not able to do same and i didnt get he the dialog. could you explain how exactly you used shell to get the time that would be taken to copy data..

Thanks Rofeu..

Sefen

 

[Rofeu]

Hi,

I think that your problem is that you assign the path of the folder to be copied to a string variable and pass that as the first parameter to the CopyHere method.

I've noticed that it passes right over it without doing anything. You need to dimension your variable as a variant for it to work. (this is not mentioned in the acticle by the way).

Cheers,

Roel

 

[combo]

With early binding:
Dim objShell As Shell32.Shell
Dim objFolder As Shell32.Folder
Const FOF_CREATEPROGRESSDLG = &H0&
Set objShell = New Shell32.Shell
Set objFolder = objShell.NameSpace("TargetFolderPath")
objFolder.CopyHere "SourceFilePathAndName", FOF_CREATEPROGRESSDLG


combo

 

[stefen054]

Great thanks to both of you....

Stefen