Histórico da Página

#---------------------------------------#
 FUNCTION LOG_fileOpenServer_test()
#---------------------------------------#
  DEFINE l_dir   CHAR(250)
  DEFINE l_file  CHAR(250)

  LET l_dir = "c:\\temp\\"

  LET l_file = LOG_file_open_server(l_dir,"*.txt")
  IF l_file <> " " THEN
     CALL conout("Arquivo selecionado = "||l_file CLIPPED)
  ELSE
     CALL conout("Nenhum arquivo selecionado.")
  END IF
END FUNCTION