Downloads a file in the users browser

1 minute read

Downloads a file in the users browser

@param FILEPATH Filepath of the file to be downloaded


Local Char  FILEPATH(250)  
  FILEPATH="D:\SageX3\X3TST\folders\khadda\YNFI\[M:YKH]YKH.txt"
Subprog DOWNLOAD_FILE(FILEPATH)
Value Char FILEPATH

Local Char TMPPATH(250)
Local Integer STAT : STAT = 0

  TMPPATH = filpath("TMP", "tmp_" + uuid$, func GET_FILE_EXTENSION(FILEPATH))

  Call MOVE(FILEPATH, TMPPATH, STAT) From ORDSYS      # change file name to a temporary one to avoid download error
  Call COPCLI(TMPPATH, FILEPATH, STAT) From ORDSYS    # change back to original file name while downloading
  Call MOVE(TMPPATH, FILEPATH, STAT) From ORDSYS

  If STAT
    Errbox("Could not download file") Titled "Download error"
  Endif

End

sage