Vista - CopyHere

MS says CopyHere has options.
http://msdn.microsoft.com/en-us/libr...66(VS.85).aspx
I execute it with options and it ignores them. Am I missing something or is
MS missing something?

"Eric" <someone@xxxxxx> wrote in message
news:eHK7rHEIKHA.1340@xxxxxxLet's have a look at your script!

"Pegasus [MVP]" <news@xxxxxx> wrote in message
news:%23yWJ$NEIKHA.5256@xxxxxxJust a basic copy. I tried a couple options (confirmall, simpleprogress)
and it seems to ignore.


Option Explicit
Dim oSHApp, sFolder ' as object
Dim sSrc, sDest ' as string

Const FOF_NODIALOG = 4
' Do not display a progress dialog box.
Const FOF_RENAMEIFEXISTS = 8
' Give the file being operated on a new name in a move, copy, or rename
operation if a file with the target name already exists.
Const FOF_CONFIRMALL = 16
' Respond with "Yes to All" for any dialog box that is displayed.
Const FOF_PRESERVEUNDO = 64
' Preserve undo information, if possible.
Const FOF_WILDCARDSONLY = 128
' Perform the operation on files only if a wildcard file name (*.*) is
specified.
Const FOF_SIMPLEPROGRESS = 256 '(&H100)
' Display a progress dialog box but do not show the file names.
Const FOF_CREATEDIR = 512
' Do not confirm the creation of a new directory if the operation requires
one to be created.
Const FOF_NOERRORDISPLAY = 1024
' Do not display a user interface if an error occurs.
Const FOF_NOSECURITYCOPY = 2048
' Version 4.71. Do not copy the security attributes of the file.
Const FOF_NOSUBDIRECTORIES = 4096
' Only operate in the local directory. Don't operate recursively into
subdirectories.
Const FOF_NOCONNECTEDFILES = 8192
' Version 5.0. Do not copy connected files as a group. Only copy the
specified files.

Set oSHApp = CreateObject("Shell.Application")

sSrc = "c:\testsource\*.*"
sDest = "c:\testdest\"
set sFolder = oSHApp.NameSpace(sDest)

if not sFolder is nothing then
sFolder.CopyHere sSrc,FOF_CONFIRMALL
end if

Set oSHApp = nothing ' clean up
WScript.Quit

Eric wrote:isIt works for me. Show us how you implemented it.

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

Eric wrote:orWhat OS and what version of vbscript are you using. Did the destination
folder exist before attempting to copy files to it? AFAIK, CopyHere does not
create the destination folder. By "seems to ignore", what results were you
expecting from the code above? Was there a large amount of data in the
source folder to be copied?

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

"Todd Vargo" <tlvargo@xxxxxx> wrote in message
news:ecgqXtEIKHA.3736@xxxxxxI'm using vbscript version 5.7 on WinXPProSP2.
Yes the folder exists. The copies work fine, the options don't. If I use
this confirmall option, it still prompts me to confirm overwrite when
destination files already exist. If I use the simpleprogress option it
still shows file names.

I am having a similar problem. My code is below. The copyhere will not
automatically create the directory if it doesn't already exist. Weird thing
is that it will automatically create the directory if it doesn't exist on
75% of the machines I have but not the other 25%. Any help you could
provide would be greatly appreciated. This is pure vbs, no hta or html
involved.

On Error Resume Next
Set objNetwork = CreateObject("Wscript.Network")
Set objSHApp= CreateObject("Shell.Application")
Const FOF_CONFIRMALL = 16
Const FOF_SIMPLEPROGRESS = 256
Const FOF_CREATEDIR = 512
Set WshShell = WScript.CreateObject("WScript.Shell")
Set filesys = CreateObject("Scripting.FileSystemObject")
Set WshSysEnv = WshShell.Environment("PROCESS")

'Set destination
strDest = "G:\ProfileBackup\"

'Check if the ProfileBackup Folder exist, if not create it
If Not filesys.FolderExists(strDest) Then
filesys.CreateFolder(strDest)
End If

'Set source path strings
strHomePath = WshSysEnv("HOMEPATH")
strSrcDesktop = "c:" & strHomePath & "\desktop"
strSrcFavs = "c:" & strHomePath & "\Favorites"
strSrcMyDocs = "c:" & strHomePath & "\My Documents"
strSrcPsiData = "c:" & strHomePath & "\PsiData"
strSrcEmailSig = "c:" & strHomePath & "\Application
Data\Microsoft\Signatures"

' Using shell.application to copy since faster and displays status/progress

'Backup User Desktop
objSHApp.Namespace(strDest).CopyHere strSrcDesktop,FOF_CONFIRMALL

'Backup User Favorites
objSHApp.Namespace(strDest).CopyHere strSrcFavs,FOF_CONFIRMALL

'Backup User My Documents
objSHApp.Namespace(strDest).CopyHere strSrcMyDocs,FOF_CONFIRMALL

'Backup User PsiData (Need to check if folder exists on PC first)
If filesys.FolderExists (strSrcPsiData) Then
objSHApp.Namespace(strDest).CopyHere strSrcPsiData,FOF_CONFIRMALL
End If

'Backup User Email Signatures (Need to check if folder exists on PC first)
If filesys.FolderExists (strSrcEmailSig) Then
objSHApp.Namespace(strDest).CopyHere strSrcEmailSig,FOF_CONFIRMALL
End If

James



"Pegasus [MVP]" <news@xxxxxx> wrote in message
news:%23yWJ$NEIKHA.5256@xxxxxx

The following options work...but I cannot use specify more than one at a
time or the complete copy will fail. Anyone know why?

Const FOF_NOCONFIRMATION = &H10& '(16)Respond with "Yes to All" for any
dialog box that is displayed
Const FOF_SIMPLEPROGRESS = &H100& '(256)Display a progress dialog box but do
not show the file names
Const FOF_NOCONFIRMMKDIR = &H200& '(512)Do not confirm the creation of a new
directory if the operation requires one to be created

objSHApp.Namespace(strDest).CopyHere
strSrcFavs,FOF_NOCONFIRMATION,FOF_SIMPLEPROGRESS,FOF_NOCONFIRMMKDIR

James

"Eric" <someone@xxxxxx> wrote in message
news:eHK7rHEIKHA.1340@xxxxxx

Perhaps it is time to learn about the "On Error Resume Next" statement.
When used in a main script, without other error handling statements, it
basically means:
1) Please don't inform the user when or where or why errors occur
2) Please change the order in which statements are executed, in various
ways, depending on where an error occurs
3) Please keep on going no matter how many errors occur.

The net result is that the user and script author do not have a clue as to
what statements may or may not have been executed when the script is done.

-Paul Randall

"James" <dontemailme@xxxxxx> wrote in message
news:O4tY2IOIKHA.4004@xxxxxx

If you can specify more than one at a time, you don't pass them as separate
parameters. You have to combine them.
If you want option 8 and option 16 you pass value 24 not 8,16.
This is why the option values are multiplied numbers.

"James" <dontemailme@xxxxxx> wrote in message
news:eLMw0ZOIKHA.3444@xxxxxx