Problemas con la Ñ

[horacio]

Cristobal, efectivamente si no compruebo la existencia del archivo puedo leerlo, pero necesito saber si este archivo existe ya que es necesario para el proceso que quiero hacer. Parecería que falla la función File().

Saludos

[cnavarro]

Pero has comprobado el hacer un

?

y un

Msginfo

de la variable que contiene el fichero con su path completo ?

[cnavarro]

Esto funciona OK

[cnavarro]

El ordenador que utilizas tiene como lengua el Español?

[horacio]

La variable es

Code: Select all  Expand view

? cEmpresa + '\config.ini'
 

Y me muestra

Code: Select all  Expand view

C:\escuelas\VIÑAS\config.ini
 

Saludos

[horacio]

Si defino estos ordenadores tal cual me sugieres

Code: Select all  Expand view

 HB_LANGSELECT( 'ESWIN' )
  HB_SetCodePage("ESWIN")
 

Me genera este error

Code: Select all  Expand view

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 05/06/2017, 12:10:50
   Error description: Error BASE/1302  Argument error: HB_CDPISUTF8
   Args:
     [   1] = C   ESWIN
 

Faltará alguna librería ?

Gracias

[cnavarro]

Has puesto al principio el REQUEST ?

[horacio]

Me faltaba esa instrucción. Lo que no termino de entender es porque puedo leer el archivo pero no puedo comprobar la existencia del mismo con la función File() sin esta instrucción. Gracias a ambos por la ayuda.

Saludos

[cnavarro]

Cómo lo lees?

[karinha]

Como estás haciendo, asi?

Code: Select all  Expand view

   local oDlg, cHost := Space( 20 ), cUser := Space( 20 ), cPassword := Space( 20 )
   local oBtn, lConnect := .F., oIni

   if File( ".\erp.ini" )

      INI oIni FILE ".\erp.ini"
         GET cHost SECTION "server" ENTRY "host" OF oIni DEFAULT "127.0.0.1"
         GET cUser SECTION "server" ENTRY "user" OF oIni DEFAULT "root"
         GET cPassword SECTION "server" ENTRY "password" OF oIni DEFAULT ""
      ENDINI

      cHost = PadR( cHost, 20 )
      cUser = PadR( cUser, 20 )
      cPassword = PadR( cPassword, 20 )

   endif
 

[horacio]

El archivo de configuración lo leo de esta manera

Code: Select all  Expand view

cDirActual := GetPvProfString( "periodo","Mes","",  cEmpresa + "\config.ini" ) 
 

Saludos

[karinha]

Code: Select all  Expand view

   cDirActual := GetPvProfString( "periodo",  "Mes", FilePath(), cEmpresa + ".\CONFIG.INI" )

   ó
 
   cDirActual := GetPvProfString( "periodo",  "Mes", FilePath(), cEmpresa,  ".\CONFIG.INI" )