generar archivo txt

[weezero]

Hola
estoy desarrollando un proceso para generar un archivo de texto y quiero que por defecto se guarde en "Mis documentos", como puedo hacer para obtener el path completo a este directorio?

Muchas gracias

[Mauricio]

Vas a tener que usar una API de Windows para eso.
Por ejemplo: SHGetFolderLocation, SHGetFolderPath, SHGetSpecialFolderLocation,
SHGetSpecialFolderPath

O usar WinEvent que tiene funciones para eso.

[weezero]

como tengo que hacer para usar una api? disculpame, soy novato en Clarion

[Mauricio]

Con qué versión de Clarion estás trabajando? Te puedo armar un ejemplo para la versión 6 pero quiero estar seguro que vas a poder abrirlo.

[Mauricio]

Es algo así:

Código: Seleccionar todo

  MODULE('shfolder')
     SHGetFolderPath(Long,Long,Long,Long,*CSTRING),Long,PASCAL,RAW,NAME('SHGetFolderPathA')
  END

S_OK                            EQUATE(0)
SHGFP_TYPE_CURRENT    EQUATE(0)
CSIDL_PERSONAL            EQUATE(5H)                !My Documents
LastExportPath                        CString(255)


  Code
  IF SHGetFolderPath(Window{prop:handle}, CSIDL_PERSONAL, 0,SHGFP_TYPE_CURRENT,LastExportPath) = S_OK
     !In here if successful.  LastExportPath should now hold your My Documents path
  END !IF

[DanielRuzo]

Es más sencillo leer la entrada en el registro:

GETREG(REG_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','Personal')

[weezero]

Muchas Gracias a los dos!