Example

The following example shows how to receive a file from the host and send it to the workstation for the connection associated with the autECLXfer object.

DIM  XferObj as Object
DIM  autECLConnList as Object
DIM  NumRows as Long
 
Set XferObj = CreateObject("ZIEWin.autECLXfer")
Set autECLConnList = CreateObject("ZIEWin.autECLConnList")
 
' Initialize the connection with the first connection in the list
autECLConnList.Refresh
XferObj.SetConnectionByHandle(autECLConnList(1).Handle)
' For example, send the file to VM
XferObj.ReceiveFile "c:\windows\temp\thefile.txt",
                     	"THEFILE TEXT A0",
                     	"CRLF ASCII"