Guardar archivos en carpeta local

Pues no sé si este código te sirva:

LOCAL cNombreArchivo

*** Averiguo cuál es la carpeta Mis Documentos"
loShell = CREATEOBJECT("WScript.Shell")
lcMisDoc = loShell.SpecialFolders("MyDocuments")

*** Guardo el directorio actual de la aplicación
lcOldDir = SYS(5) + SYS(2003)

*** Coloco el directorio Mis Documentos como el directorio actual
CD (lcMisDoc)

lcNombreArchivo = PutFile("MiDocumetoAGuardar", "XLS: Archivo Excel")

*** Si el usuario no dio cancelar, hago lo que quiera con ese archivo
IF LEN(ALLTRIM(cNombreArchivo))>0
**** Hago algo con cNombreArchivo
ENDIF

*** Vuelvo a colocar el directorio por defecto de la aplicación
CD (lcOldDir)

El martes, 12 de febrero de 2013 10:17:58 UTC-5, OscarRd escribió:

Tengo la aplicacion en el servidor y los clientes se conectan a ella a través de una acceso directo al ejecutable que esta en la servidor, en un proceso en la aplicacion tengo que guardar uno archivo de forma autonoma, por mas que he tratado no he logrado que me lo guarde en la carpeta local del usuario conectado si no que lo guarda en el servidor.



es decir quiero guardar el archivo en "c:\Docs" en lugar me lo guarde pero lo hace en el servidor "\\server\c\docs"



Cualquier sugerencia y/o comentarios serán bienvenidos.



Gracias,

Oscar Portorreal Rep. Dominicana

VFP 9.0

Windows 7