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
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"
RETURNSi 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).
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.
Gracias Antonio funcionó perfecto. También agradeco a Otto y a cpheraclio por haber contribuÃdo con otras soluciones.
Luis
