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

   
Vista:

Como copiar carpetas internas Visual fox pro

Publicado por marcel florez pinto (2 intervenciones) el 19/10/2012 14:38:19
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....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Como copiar carpetas internas Visual fox pro

Publicado por Fidel (319 intervenciones) el 20/10/2012 01:43:37
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como copiar carpetas internas Visual fox pro

Publicado por marcel marcel_42_33@hotmail.com (2 intervenciones) el 22/10/2012 17:23:53
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como copiar carpetas internas Visual fox pro

Publicado por Fidel (319 intervenciones) el 22/10/2012 21:50:53
Mi correo es fjcharny@gmail.com.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como copiar carpetas internas Visual fox pro

Publicado por marcel (1 intervención) el 24/10/2012 22:31:11
Viejo te escribi al correo avisame si te llego...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como copiar carpetas internas Visual fox pro

Publicado por Fidel (319 intervenciones) el 25/10/2012 20:57:03
No recibí nada.
Por las dudas lo pongo en mayúsculas, por ahi no se entiende:
FJCHARNY@GMAIL.COM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como comparar archivos dbf

Publicado por marcel (1 intervención) el 29/10/2012 14:05:21
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar