Error al abrir un archivo RTF

[caducca]

Hola grupo, al querer abrir un archivo RTF me arroja el siguiente error:

Path and name: D:\Programs\BancosNew\BancosXH2.Exe (32 bits)
Size: 1,368,064 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20161218)
FiveWin version: FWHX 17.03
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 23 secs
Error occurred at: 23/01/2019, 19:27:25
Error description: Error Word.Application:DOCUMENTS/9 'Item' no es una propiedad.: OPEN
Args:
[ 1] = C .\Notas\Notas2.RTF

Alguna pista?

[karinha]

Code: Select all

[ 1] = C .\Notas\Notas2.RTF  ???? Ruta no estpa erronea?
 

Saludos.

[karinha]

Prueba a poner una llamada a MsgInfo() aqui para ver si llega:

oWord:Documents:Open( "c:\fwh\g\dbf\plantilla\DOCU.RTF" )

MsgInfo( "abierto" )

[caducca]

Gracias por responder.
Si el Archivo si existe

Code: Select all

  cFichero:=".\Notas\Notas.RTF"
  If FILE(".\Notas\Notas.RTF")
     oWord := TOleAuto():New( "Word.Application" )
     oWord:Documents:Open(cFichero)
     oWord:Visible     := .T.
     oWord:WindowState := 1 // Maximize
 EndIf
 

[cnavarro]

Has de utilizar paths completos y absolutos

[caducca]

Ok, pero si es así no me sirve

[cmsoft]

El punto lo usas para decir donde estas posicionado, podes reemplazarlo con las funciones siguientes, asi obtenes el absoluto de donde estas posicionado.

Code: Select all

  cFichero:=hb_curDrive()+":\"+CurDir()+"\Notas\Notas.RTF"
  If FILE(cFichero)
     oWord := TOleAuto():New( "Word.Application" )
     oWord:Documents:Open(cFichero)
     oWord:Visible     := .T.
     oWord:WindowState := 1 // Maximize
 EndI

[caducca]

ok, ya lo pruebo, gracias

[cnavarro]

También

Code: Select all

   cPathApp        := cFilePath( GetModuleFileName( GetInstance() ) )