RenameFile problema raro

[Toni]

Hola,

Yo hace ya tiempo me encontre con el siguiente problema utilizando extractfilepath y una api de window que te retorna el path. Al igual que tu tenia un programa que funcionaba hace tiempo y en muchas maquinas, pero cuando lo copie en un servidor ya no me funcionaba bien. La cuestion es que en segun que versiones de windows el extractfilepath y la api correspondiente me devolvian la ruta de forma diferente. Es decir en unos casos me devolvian la ruta terminandola con un '\' y en los otros no.

Por eso en el if que tienes que comprueba el fichero no te estaria encontrando el fichero y no se cumpliria la condicion.

if fileexists(extractfilepath(xarchivoorig)+xpoliza+'_rec'+ansirightstr(xarchivoorig,4)) then

Por eso al montar la cadena con la ruta + archivo tenia que tener en cuenta los dos casos.