code:

---

 
for /r c:\ %%a in (*.doc) do xcopy "%%a" h:\Word /s /i
for /r c:\ %%a in (*.xls) do xcopy "%%a" h:\Excel /s /i
for /r c:\ %%a in (*.ppt) do xcopy "%%a" h:\PowerPoint /s /i
for /r c:\ %%a in (*.pub) do xcopy "%%a" h:\Publisher /s /i
for /r c:\ %%a in (*.mdb) do xcopy "%%a" h:\Access /s /i
for /r c:\ %%a in (*.pst *.pab) do xcopy "%%a" h:\Outlook /s /i
 

---

code:

---

for each $file in dirlist($folder,2)
 copy $file $destination_folder
next

---

code:

---

 $FileList = DIRLIST("c:\*.rtf",2+4)
  
For Each $Filename In $FileList
  ;Append double quotes to string for proper cmd line parsing
  $strFileName = Chr(34) + $Filename + Chr(34)
  $strCurrentFolder = Chr(34) + $CurrentWorkingFolder + Chr(34)
  	
  ;MessageBox($strCurrentFolder, "Current Working Folder")
  ;MessageBox($strFileName, "File")
  ;Construct proper string representation of command line to pass onto
  ;Xcopy via Kix Shell.
  $strShellCMD = "CMD.EXE /C XCOPY " +  $strFileName + " " +  $strCurrentFolder + "/z /q /y"

  Shell $strShellCMD

  $strFileName = ""
  $strCurrentFolder = ""

Next 

---