Coping files

Hi all,

sorry for the repeat, but the originals have fallen off my news server.

I am moving some VB Scripts over to a WinXP machine and have found they have
stopped working.

I had some code (supplied from this news group some time back) that gave me
a copy dialog box when copying files. Under XP this code no longer works. It
does not copy anything.

Can some KIND soul give me something that will work under XP.

The code I have been using (in part) is;

Const FOF_SIMPLEPROGRESS = "&H400"
Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = WScript.CreateObject("Shell.Application")
Destination="c:\test" : source="c:\temp\*.*"
Set DFldr = oShell.NameSpace(Destination)
DFldr.CopyHere source, FOF_SIMPLEPROGRESS


I have also been supplied with the FOF_SIMPLEPROGRESS value of 256 (&H100)
but that did not work under XP either.

Cheers, Bill.

McKirahan
Fri May 21 10:57:20 CDT 2004

"William E Hatto" <xxnospamxxweh@bigpond.net.au> wrote in message
news:e2G2ks0PEHA.648@TK2MSFTNGP10.phx.gbl...
> Hi all,
>
> sorry for the repeat, but the originals have fallen off my news server.
>
> I am moving some VB Scripts over to a WinXP machine and have found they
have
> stopped working.
>
> I had some code (supplied from this news group some time back) that gave
me
> a copy dialog box when copying files. Under XP this code no longer works.
It
> does not copy anything.
>
> Can some KIND soul give me something that will work under XP.
>
> The code I have been using (in part) is;
>
> Const FOF_SIMPLEPROGRESS = "&H400"
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set oShell = WScript.CreateObject("Shell.Application")
> Destination="c:\test" : source="c:\temp\*.*"
> Set DFldr = oShell.NameSpace(Destination)
> DFldr.CopyHere source, FOF_SIMPLEPROGRESS
>
>
> I have also been supplied with the FOF_SIMPLEPROGRESS value of 256 (&H100)
> but that did not work under XP either.
>
> Cheers, Bill.


A Google search of "FOF_SIMPLEPROGRESS" found:

HOWTO: Use the Animated Copy Functions in Windows 95/98/Me
http://support.microsoft.com/default.aspx?scid=kb;EN-US;151799