FoxPro/Visual FoxPro - Como copiar carpetas internas Visual fox pro

Buen dia como ago para copiar las sub carpetas que estan dentro de otrasy a la vez q si ya estan no me pregunte si las deseo sobreescribir
ejemplo yo estoy ejecutando este
COPY FILE C:\users\sony\documents\Cprueva2 TO C:\Users\Sony\Desktop\Cprueva2

Pero no copia las de adentro y me pregunta si al quiero sobreescribir

en comandos de consola si se puede pero en fox nose ayuda....

1) Para evitar la pregunta de sobreescribir u overwrite.
SET SAFETY OFF
2) El comando COPY FILE cRuta1\Archivo1 TO cRuta2\Archivo2 copia archivos (de cualquier tipo) y no carpetas. La única condición es que los archivos estén cerrados. Deben tener el nombre completo con extensión incluida.
Si las rutas contienen espacios, probablemente debas encerrarla en comillas
cSource=["C:\Documents and Settings\Pedro\Mis Documentos\archivo.xls"]
cTarget=["c:\Documents and Settings\Pedro\Mis Documentos\Nuevos\Archivo.xls"]
COPY FILE &cSource TO &cTarget

Para saber qué carpetas tiene una carpeta, utiliza la función Adir()
CD &cCarpetaBase
nDir=Adir(gaDir,"","D")
if ndir=0
Return
endif
En cualquier subcarpeta, Gadir[1,1]=".", Gadir[1,2]=".."
para saber cuáles son las subcarpetas contenidas
for i=1 to alen(gadir,1)
if Left(gadir[i,1] # "."
? gadir[i,1]
endif
next

Para saber cuáles son los archivos de una carpeta
nFiles=Adir(gafiles)
&& si nFiles=0 la carpeta no contiene ningún archivo. (o son ocultos)
if nFiles#0
For i=1 to alen(gafiles,1)
? gafiles[i,1]
next
endif

Para saber si una carpeta existe o no y en su caso crearla
cCarpeta="C:\MIRUTA\SUBRUTA"
if !directory(cCarpeta)
MD &cCarpeta
endif

Gracias fidel voy aintentarlo estoy en pasantias y este programa no lo domino, y programar como tal no es mi fuerte, disuclpa me podrias facilitar tu correo te agradeceria de ante mano

Mi correo es [email protected].

Viejo te escribi al correo avisame si te llego...

No recibí nada.
Por las dudas lo pongo en mayúsculas, por ahi no se entiende:
[email protected]

Hola fidel mira con este codigo busco si un archivo dbf esta remplace la data pero es obligatorio de que en respaldo este dicho dbf y si encaso el dbf encontrado en XDB3 no esta en XRUTA3 se tranca ekl porgrama por lo tanto tengo q hacer una codnicion q me compare si el archivo encontrado en un lugar tambine se encuentre en el otro y hay si ejecute el codigo

************** Actualizar RESPALDO/SISGEN/CONTABILIDAD ******************************
xRuta3='c:\Respaldo\Sisgen\Contabilidad\'
xBD3='C:\Sisgen\Contabilidad\'

tot3=ADIR(Archivos3,xRuta3+'*.dbf')

FOR I=1 TO tot3
xO3Archivo=xRuta3+ALLTRIM(Archivos3(I,1))
xD3Archivo=xBD3+ALLTRIM(Archivos3(I,1))
IF FILE(xD3Archivo)
USE &xO3Archivo
DELETE FROM &xO3Archivo
CLOSE ALL
PACK &xO3Archivo
USE &xO3Archivo
APPEND FROM &xD3Archivo
CLOSE ALL
ENDIF
ENDFOR