FileSystemObject progress GUI not showing 2

[1DMF]

Hi,

I have used a FileSystemObject to copy a file from one network drive to another.

According to MSDN if you use a 'showUI' argument, a progress GUI should be displayed.

I have hunted the web to find what UIOption.AllDialogs is enumerated to and it appears to be a 3, so use that as the argument..

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile sLocal, sWord, 3

But the GUI isn't displayed, have I used the correct enumeration? and if so why doesn't the GUI display?

Thanks,

1DMF.

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads

 

[PHV]

Seems like you misread MSDN.
The 3rd parameter of the Copyfile method is a boolean flag for overwrite the destination.
I guess you confuse the CopyHere method, eg:

Set SA = CreateObject("Shell.Application")
Set dest = SA.NameSpace("\path\to\destination)
dest.CopyHere "\path\to\source", 16

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[1DMF]

hmm. I must be reading something wrong..

[URL unfurl="true"]http://msdn.microsoft.com/en-us/library/36xbexyf(v=vs.80).aspx[/url]

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads

 

[PHV]

Well, seems like VB.Net ....

 

[PHV]

OOps, sorry for the typo in my suggestion:
[ccde]Set SA = CreateObject("Shell.Application")
Set dest = SA.NameSpace("\path\to\destination")
dest.CopyHere "\path\to\source", 16[/code]

furthermore, I didn't see any mention of FileSystemObject in the MSDN page you posted.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[1DMF]

really, the tree on the left for me shows..

My.Computer.FileSystem Object

Do you not see this?

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads

 

[strongm]

That is the .NET FileSystem (object), as opposed to the Scripting FileSystemObject. They are two very different things, as PHV was gently trying to hint.

 

[1DMF]

hmm, I did a search in G! for 'file system object' and got that, I thought a 'file system' object in windows is a 'file system' object in windows, but it seems there are multiple 'file systems' in windows and they are not all equal?

Talk about confusing!

If you are pluging into the windows API 'system file' why does it matter what language you are using?

I really don't get what the hell it is i'm pluggin into sometimes!

As for using shell, I get 'object variable with block variable not set - 91'

Dim SA As Object
Dim SADest As Object
Set SA = CreateObject("Shell.Application")
Set SADest = SA.NameSpace(sWord)
SADest.CopyHere sLocal, 16

Your example isn't clear where filename goes, sWord and sLocal are drive:\path\filename.extension

Is this correct?



"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads

 

[PHV]

sWord should be the path of the destination directory
sLocal should be the pathname of the source directory or file.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[1DMF]

So sWord the path only, sLocal the fullpath and filename OK, I'll give it a whirl.

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads

 

[1DMF]

OK, that worked, but still no progress GUI?

Where is the GUI meant to appear as a syscmd green bloby thing or a normal explorer copy GUI dialog?

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads

 

[PHV]

Try to copy a whole directory or a big file.
Anyway, have a look here:

http://msdn.microsoft.com/en-us/library/windows/desktop/bb787866(v=vs.85).aspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[strongm]

>Where is the GUI meant to appear as a syscmd green bloby thing or a normal explorer copy GUI dialog?

It's the explorer copy GUI dialog. Mind you, if the file is relatively small it won't appear because the copy finished too quickly.

 

[1DMF]

Thanks guys, appreciated.

It is a small file, but I think for our remote users this GUI progress bar will be visible and of use.

I will do some testing and let you kow.

1DMF.

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads

 

[1DMF]

Does a shell command run asynchronous to the rest of the flow of VBA commands?

And how do you tell if the file has copied yet before continuing if it is asynchronous??



"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads

 

[1DMF]

I can't get it to work, nothing gets copied, CopyFile works fine! if it aint broke!

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads