cGetFile32 strange behaviour

[AHF]

This code runs ok on win10 but not on one PC with win 7.
Another app with same code runs ok on both!

Code: Select all  Expand view  RUN

cFile := cGetFile32("Ficheiros XML | *.xml|"+;
                             "Escolha onde vai gravar o ficheiro",1 )

MSGINFO(CFILE) // this shows before the previous dialog its closed!
 

Any ideas on what might be the issue.

Thanks.

[karinha]

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL cFile

   cFile := SubStr( cGetFile( "*.XML", "Gravar o ficheiro XML" ), 1 )

   MsgInfo( cFile )


RETURN NIL