Example: Search for Files and then FileCopy Them

Keywords:  search and filecopy

---

BoxOpen("File Finder","Initializing")

AddExtender("wsrch34I.dll")

file="winbatch.exe"
hand=srchInit("C:\",file,"","",16)

c=0

fh=FileOpen("c:\temp\whereitis.txt","WRITE")
dest="c:\temp\junker\"

while 1 
if FileExist(strcat(dest,file)) then FileDelete(strcat(dest,file))
if !DirExist(dest) then DirMake(dest)
a=srchNext(hand)          
  if a=="" then break  
  BoxOpen("Find File", a)
  Message("",a)
  FileCopy(a, dest, @false)
  FileWrite(fh,strcat(a,@crlf))
  c=c+1 
     
   
  
 ;Display(1,c,a)
endwhile

Message("Find Complete",a)
srchFree(hand)  

exit

---

Article ID:   W12558

Filename:   Search for Files and then Copy Them.txt