Filesavedlg

[Francisco Sanchez]

Empiezo este hilo por si no dejo claro los problemas que existen en el
anterior hilo. Me explico : No toma el path inicial que le indico, si al
nombre de fichero que le ponga - que por supuesto no existe - no le pongo
extension, el le asigna automaticamente .prg. Si lo hago 2 veces seguidas me
memoriza el path ultimo que escogi.
Un saludo

[Francisco Sanchez]

En resumen que te cambia el path de la aplicacion, con los problemas que
esto puede ocasionar. No debiera de ser asi no ?. De todas formas como me di
cuenta lo estoy empezando a controlar para que cuando termine el filesavedlg
vuelva al path inicial de la aplicacion.
Un saludo

[Francisco Sanchez]

bueno depues de mucho probar ya no estoy seguro de que haga que me cambie el
path, no obstante lo que si estoy seguro es que no toma el path inicial que
le indico.
Y no estoy seguro pero me da la impresion de que lo esta cambiando, el path
me refiero.
Un saludo

[jfgimenez]

Paco,
acabo de probar esto:
WITH OBJECT TFileSaveDlg():New()
:cTitle := "Guardar fichero"
:cInitialDir := "C:Windows"
:cFilter := "Archivos de texto (*.txt)|*.txt|Todos los archivos|*.*"
If :Run()
MsgInfo( :cFullFileName )
Endif
END WITH
y funciona perfectamente. Por favor, pruebalo en un proyecto nuevo, sólo
este código y dime si te funciona.
Y por cierto, el fichero no se crea. O mejor dicho, por defecto, si
lNoTestFileCreate = .F., windows intenta crear el fichero para comprobar que
no haya ningún error, pero a continuación vuelve a borrarlo como si nada
hubiera ocurrido.
--
Un saludo,
José F. Giménez

[Francisco Sanchez]

correcto, je muchas horas ya funciona bien. Pero lo que si es cierto es que
no me toma el path inicial que le indico yo, pero tranquilo que seguramente
tendre un lio de narices en todo el codigo. Ya le di tantas vueltas que
seguramente es error mio. Ya te dire como lo acabo de liar, jejejee.
Un saludo