RENOMBRAR ARCHIVOS

[mariano Movil]

HOLA!!!

NECESITO RENOMBRAR TODOS LOS ARCHIVOS QUE SE ENCUENTREN EN UN DIRECTORIO DESDE MI APLICACION EN VFP, PERO NECESITO CONTROLAR SI SE PUDO REALIZAR EL CAMBIO DEL NOMBRE EXITOSAMENTE.

ES DECIR, SI ALGUIEN DENTRO DE LA RED TIENE ABIERTO EL ARCHIVO NO SE VA A PODER REALIZAR EL CAMBIO, SE ENTIENDE??? Y QUE INTENTE RENOMBRAR HASTA QUE SE PUEDA CAMBIAR, COMO PUEDO SOLUCIONARLO?

DESDE YA MUCHAS GRACIAS!!!

[Jairo Miranda]

LupasRename

 

JM

[Martin Paredes]

te paso este link, ahí puedes encontrar algo de lo que buscas.

https://www.berezniker.com/content/pages/visual-foxpro/copy-move-rename-file-preserving-destination-name-case

Salds....

Mapasac

General Escobedo, N.L. Mexico

[HernanCano]

Amigo "movil":

Lo que deseas es algo que nunca se debe hacer.

Si necesitas renombrar archivos que están en uso, entonces tienes problemas con tu lógica de programación. Algo así no se DEBE hacer en una aplicación en red.

Lo sgte es una forma PERO NUNCA ALGUIEN DEBE USARLO.

set talk off

close databases

on error lError=.t.

N = adir(TT,"*.*")

for I=1 to N

   cFile = TT(I,1)

   lError = .f.

   use (cFile) exclusive

   if lError

      MessageBox('No se puede renombrar '+cFile)

   else

      use

      rename (cFile) to (cFile)+'.ANTERIOR'

   endif

next

close databases

on error

** este es un ejemplo didáctico que NUNCA ALGUIEN DEBE USARLO en runtime.

[mariano Movil]

Hola Hernan!!!! Agradezco tu colaboracion!!!

Te comento lo que necesito hacer... el sistema que utilizamos para tomar pedidos genera un pdf con el pedido en un determinado directorio, entonces estoy haciendo un pequeño programita en fox que levanta todos los nombres de archivos pdf que hay en el directorio, y lo imprimo desde fox, pero si justo en ese momento se esta generando el archivo no lo puedo abrir y genera error, entonces se me ocurrio renombrar el archivo pdf, si puedo renombrar lo abro e imprimo, de lo contrario espero hasta que pueda renombrar.