Copiar muitos arquivos.

[kapiaba]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=35644&p=212224#p212224

 

Perfect mister Rao. Many thanks.

#Include "FiveWin.ch"
	static oWnd
	//----------------------------------------------------------------//
	FUNCTION Main()
	   LOCAL oBar, cOrigen, cDestino
	   cOrigen  := Curdrive()+":\fwh1701\samples\*.prg"
	   cDestino := Curdrive()+":\backup\"
	
   DEFINE WINDOW oWnd TITLE "Copiar Archivos"
	   DEFINE BUTTONBAR oBar _3D OF oWnd
	   DEFINE BUTTON OF oBar ACTION( Copiar( cOrigen, cDestino ), oWnd:End() )
	   SET MESSAGE OF oWnd TO "Copiar Archivos" NOINSET CLOCK DATE KEYBOARD
	   ACTIVATE WINDOW oWnd CENTER
	RETURN NIL
	//----------------------------------------------------------------//
	FUNCTION Copiar( cOrigen, cDestino )
	   LOCAL oFs
	   If .not. Lisdir( cDestino )
      LMkdir( cDestino )
   Endif
	   CURSORWAIT()
	   oFs   := CreateObject( "Scripting.FileSystemObject" )
	   // oFs:CopyFile( "z:\systems\xml\*.xml" , "r:\backups\systems\xml\", .t. ) // .t. for overwrite
	   oFs:CopyFile( cOrigen, cDestino, .T. ) // .t. for overwrite
	   CURSORARROW()
	   ? "Pronto..."
	RETURN NIL

 

[kapiaba]

Coloquei opção, usando ROBOCOPY.EXE do Windows.

 

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=35644

 

Abs