MarshallSoft

XBase FTP Example


* download file from FTP server

function Download(Host, User, Pass, Folder, FileName)
Local Code
* connect to server (Host)
Code = fceConnect(0, @Host, @User, @Pass)
* error ? (negative return codes are errors)
if Code < 0
  return Code
endif
* change to proper directory
Code = fceSetServerDir(0, @Folder)
if Code < 0
  return Code
endif
* set binary xfer mode
fceSetMode(0, ASC("B"))
* download file to current directory
Code = fceGetFile(0, @FileName)
return Code

MSC Logo

HOME PAGE
MARSHALLSOFT is a trademark of MarshallSoft Computing, Inc.