Function FTP Parameter Filename, FTPSite, Username, Password CRLF = Chr(13)+Chr(10) nFile = FCreate("ftp.txt") * Open connection to FTP Site and log in =FWrite(nFile, "open "+FTPSite+CRLF+Username+CRLF+Password+CRLF) * Force lowercase transmition since UNIX usually looks for lower case. =FWrite(nFile, "glob off"+CRLF) * Force ASCII transmition so the DOS=>UNIX ascii conversion occurs =FWrite(nFile, "ascii"+CRLF) * Put the file on the FTP Site =FWrite(nFile, "put "+Filename+CRLF) * End the connection and close FTP =FWrite(nFile, "quit"+CRLF) * Close the script file =FClose(nFile) * Change current drive in DOS cFTPCmd = sys(5) ! &cFTPCmd * Invoke the DOS FTP program with the scripting option ! ftp -s:ftp.txt