File( GetTempDirectoryLong() + cFile ) en Vista

[Xevi]

Tengo una función creada para crear ficheros temporales en la carpeta
Temporal de Windows o en una ruta que le mande por parámetro...
Function xFileTemp( cExt, cRuta )
local n, cFileTemp
DEFAULT cExt to ""
For n:=1 to 9999
cFileTemp := If( cRuta = Nil, GetTempDirectoryLong(), cRuta ) +;
"Temp" + StrZero( n, 4 ) + cExt
If !File( cFileTemp )
Exit
EndIf
Next
Return cFileTemp
Bien, pues resulta que en Vista no funciona correctamente File() cuando un
fichero está alojado en la carpeta GetTempDirectoryLong().
Si tengo un fichero "Temp0001.txt" creado en la carpeta Temporal de Windows
"C:UsersXeviAppDataLocalTemp", cuando compruebo si existe el fichero
File( GetTempDirectoryLong() + "Temp0001.txt" ) de vuelve .F. en Vista.
Lo he comprobado con otros nombres de ficheros que tengo en la carpeta
Temporal, y ningún nombre que realmente existe en la carpeta es detectable
por File()
En otras versiones de Windows funciona correctamente.
Un Saludo,
Xevi.

[ignacio]

Xevi,
Pudiera ser un error de la función File() de xHarbour, o sencillamente que
Vista está haciendo de las suyas en ese directorio. Te recomiendo que
utilices la función GetTempFilename
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:4753b701$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Tengo una función creada para crear ficheros temporales en la carpeta
> Temporal de Windows o en una ruta que le mande por parámetro...
>
> Function xFileTemp( cExt, cRuta )
> local n, cFileTemp
>
> DEFAULT cExt to ""
>
> For n:=1 to 9999
> cFileTemp := If( cRuta = Nil, GetTempDirectoryLong(), cRuta ) +;
> "Temp" + StrZero( n, 4 ) + cExt
> If !File( cFileTemp )
> Exit
> EndIf
> Next
> Return cFileTemp
>
>
> Bien, pues resulta que en Vista no funciona correctamente File() cuando un
> fichero está alojado en la carpeta GetTempDirectoryLong().
>
> Si tengo un fichero "Temp0001.txt" creado en la carpeta Temporal de
> Windows "C:UsersXeviAppDataLocalTemp", cuando compruebo si existe el
> fichero File( GetTempDirectoryLong() + "Temp0001.txt" ) de vuelve .F. en
> Vista.
> Lo he comprobado con otros nombres de ficheros que tengo en la carpeta
> Temporal, y ningún nombre que realmente existe en la carpeta es detectable
> por File()
>
> En otras versiones de Windows funciona correctamente.
>
> Un Saludo,
> Xevi.
>