Coping files
From: William E Hatto (xxnospamxxweh_at_bigpond.net.au)
Date: 05/21/04
- Next message: McKirahan: "Re: Getting the entire Internet Explorer history"
- Previous message: Colin Steadman: "Re: Msgbox or email Notification Function"
- Next in thread: McKirahan: "Re: Coping files"
- Reply: McKirahan: "Re: Coping files"
- Messages sorted by: [ date ] [ thread ]
Date: Fri, 21 May 2004 23:49:01 +0800
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.
- Next message: McKirahan: "Re: Getting the entire Internet Explorer history"
- Previous message: Colin Steadman: "Re: Msgbox or email Notification Function"
- Next in thread: McKirahan: "Re: Coping files"
- Reply: McKirahan: "Re: Coping files"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
