Error con el comando rename

[jmr...@gmail.com]

Buenos dias,

Tengo un problema que me esta volviendo majara.

Tengo un procedimiento para renombrar ficheros que carga en una tabla los nombres de los ficheros de un directorio, en otro campo de la tabla le pongo el nombre que tiene que tener el fichero.

cAntes .- Nombre actual

cDespues.- Nombre despues

En el siguiente codigo

If File(cAntes)
If linea # 'BANK'
Rename (cAntes) To (cDespues)
Endif
Endif

Lo ejecuta, pero en algun fichero me da el error 'Fichero no existe'. Lo cual es absurdo porque antes he comprobado que existe.

Que se me esta escapando?

[Gerardo Cagnola]

usá set step on para verificar

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/a27e1aae-c8d2-4b19-a36b-2d43a0813271n%40googlegroups.com.

[Zarlu]

Buenos días jmromeo!

Prefiero no usar File().

Prueba esto y comenta:

lcOld=archivoactualconpath

lcNew=archivorenombradoconpath

oFSO=CreateObject('Scripting.FileSystemObject')&&verificar si existe archivo
If oFSO.FileExists(lcNew)
Messagebox("Existe archivo con el mismo nombre.",0+48,"Aviso")
RETURN
ENDIF
RELEASE oFSO
DECLARE SHORT MoveFile IN Win32API STRING, STRING
=Movefile(lcOld,lcNew)
Release MoveFile

Suerte

zarlu

Chetumal, Quintana Roo, México

[jmr...@gmail.com]

Funciona estupendamente, muchas gracias!!

[Fabio Ramirez]

Intenta con esto :

If File(cAntes)
If linea # 'BANK'
Rename (cAntes) To (cDespues)

                        store inkey(0.1) to demora
Endif
Endif

[Fabio Ramirez]

Intenta esto:

If File(cAntes)
If linea # 'BANK'
Rename (cAntes) To (cDespues)

                        store inkey(0.1) to demora
Endif
Endif

El jueves, 4 de septiembre de 2025 a las 7:58:34 UTC-5, Zarlu escribió:

[Fabio Ramirez]

Hola cordial Saludo, 

en alguno momento me paso eso .. no recuerdo bien , pero creo que lo solucione con un pequeño tiempo de espera ,  después de renombrar cada archivo. 

igual prueba y me cuentas .. 

algo así como  :

If File(cAntes)
If linea # 'BANK'
Rename (cAntes) To (cDespues)

                        store inkey(0.1) to espera   
Endif
Endif

El jueves, 4 de septiembre de 2025 a las 7:58:34 UTC-5, Zarlu escribió: