Mover grupo de archivos

[surGom]

Hola a todos quiero pasar archivos con una determinada extensión a una carpeta dentro del mismo directorio

el directorio es archivo y dentro de el una carpeta "TEMP"

lo que quisiera es hacer move file *.xml a la carpeta TEMP

Es factible
Disculpen la simpleza pero no lo pude resolver

Luis

[Antonio Linares]

Estimado Luis,

Mira a ver si te sirve asi:

Code: Select all | Expand

PROCEDURE MoverXML()
   LOCAL aFiles := Directory( "archivo\*.xml" )
   LOCAL aFile
   
   FOR EACH aFile IN aFiles
      FRename( "archivo\" + aFile[1], "archivo\TEMP\" + aFile[1] )
   NEXT
   
   ? Len(aFiles), "archivos movidos"
RETURN

[Otto]

Si el origen y el destino están en unidades diferentes o en un recurso compartido de red (ruta UNC), `FRename()` suele fallar. En ese caso, hazlo de forma robusta copiando y luego eliminando el archivo (Copy + Delete).

[cpheraclio]

FileMove()
Moves a file to another directory.
Syntax
FileMove( <cSourceFile>, <cTargetFile> ) --> nErrorCode

Arguments
<cSourceFile>
This is a character string holding the name of the file to move. It must include path and file extension. The path can be omitted from <cSourceFile> when the file resides in the current directory.
<cTargetFile>
This is a character string with the new file name including file extension. Drive and/or path are optional. Return
The function returns zero on success or a numeric error code on failure.
Description
The function moves <cSourceFile> to a file specified with <cTargetFile>. The target file must be on the same drive as the source file.

[surGom]

Gracias Antonio funcionó perfecto. También agradeco a Otto y a cpheraclio por haber contribuído con otras soluciones.

Luis