AMX I!-FTPSENDER Instruction Manual page 9

{
(* Source Server *)
cSourceIP = '192.168.13.33'
cSourceUser = 'NetLinx'
cSourcePass = 'password'
(* Destination Server *)
cDestIP = '192.168.13.151'
cDestUser = 'NetLinx'
cDestPass = 'password'
SWITCH (GET_LAST(dcFTPCopy))
{
}
}
}
(* FTP Activity *)
DATA_EVENT[vdvFTPDiag]
{
STRING:
SEND_STRING 0,"'From FTPModule: ',DATA.TEXT"
}
(***********************************************************)
(*
i!-FTPSender
CASE 1:
{
(* File *)
cSFileName = 'ftptest.txt'
(* This will cause the file to be copied! *)
SEND_COMMAND vdvFTPDiag,"'COPY-',cSFileName"
cButtonPressed = 1
}
CASE 2:
{
(* File *)
cSFileName = 'ftptest.txt'
cDFileName = 'dir1\ftptest.txt'
(* This will cause the file to be copied! *)
SEND_COMMAND vdvFTPDiag,"'COPY-',cSFileName,';',cDFileName"
cButtonPressed = 2
}
CASE 3:
{
(* File *)
cSFileName = 'dir1\ftptest1.txt'
cDFileName = 'ftptest1.txt'
(* This will cause the file to be copied! *)
SEND_COMMAND vdvFTPDiag,"'COPY-',cSFileName,';',cDFileName"
cButtonPressed = 3
}
CASE 4:
{
(* File *)
cSFileName = 'dir1\ftptest1.txt'
cDFileName = 'dir2\ftptest.txt'
(* This will cause the file to be copied! *)
SEND_COMMAND vdvFTPDiag,"'COPY-',cSFileName,';',cDFileName"
cButtonPressed = 4
}
THE ACTUAL PROGRAM GOES BELOW
// define source IP
// username for above
// password for above
// define destination IP
// username for above
// password for above
// filename to copy
// filename to copy
// filename to copy
// filename to copy
// filename to copy
// filename to copy
// filename to copy
*)
Running i!-FTPSender
Continued
5