code:

---

$Source = "E:\Shellcopy.kix"
$Destination = "C:\"
$objShell = CreateObject("Shell.Application")
$objFolder = $objShell.NameSpace($Destination) 
$objFolder.CopyHere($Source, "&H0")

---

code:

---

FUNCTION GuiCopy($source, $Destination, optional $move, optional $delete)

	if $delete	del ("$destination\*.*")	endif

	$objShell = CreateObject("Shell.Application")
	$objFolder= $objShell.NameSpace($Destination)
	$objFolder.CopyHere($Source, "&H1552")
	$objShell = 0

	if $move	del ("$source")		endif

	ENDFUNCTION

---

quote:

---

FOF_MULTIDESTFILES As Long = &H1
FOF_CONFIRMMOUSE As Long = &H2
FOF_SILENT As Long = &H4
FOF_RENAMEONCOLLISION As Long = &H8
FOF_NOCONFIRMATION As Long = &H10
FOF_WANTMAPPINGHANDLE As Long = &H20
FOF_CREATEPROGRESSDLG As Long = &H0
FOF_ALLOWUNDO As Long = &H40
FOF_FILESONLY As Long = &H80
FOF_SIMPLEPROGRESS As Long = &H100
FOF_NOCONFIRMMKDIR As Long = &H200

---

code:

---

break on cls
 
;   4 Do not display a progress dialog box.  
;   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.  
;  16 Respond with "Yes to All" for any dialog box that is displayed.  
;  64 Preserve undo information, if possible. 
; 128 Perform the operation on files only if a wildcard file name (*.*) is specified.  
; 256 Display a progress dialog box but do not show the file names.  
; 512 Do not confirm the creation of a new directory if the operation requires one to
;     be created.  
;1024 Do not display a user interface if an error occurs.  
;2048 Version 4.71. Do not copy the security attributes of the file. 
;4096 Only operate in the local directory. Don't operate recursively into subdirectories. 
;9182 Version 5.0. Do not copy connected files as a group. Only copy the specified files.  
 
GUICopy("Copy", "E:\cd", "C:\")
? @error
 
function GUICopy($CMD, $Source, $Destination, OPTIONAL $Flags)
	If not $Flags $Flags=0 Endif
	$objShell=CreateObject("Shell.Application")
	$objFolder=$objShell.NameSpace($Destination)
	Select
	Case $CMD="Copy" $objFolder.CopyHere($Source, $Flags)
	Case $CMD="Move" $objFolder.MoveHere($Source, $Flags)
	Case 1 Beep ? "GUICopy Syntax Incorrect. Use COPY or MOVE." Exit (1)
	EndSelect
	Exit @error
endfunction

---