LIPI Object examples

The following example starts a new blank session, sets options, and downloads a file from the iSeries host. A message box will open with a success or failure message.

set bzlipi = CreateObject("BlueZone.LIPI")
bzlipi.Username = "myuserid"
bzlipi.Password = "mypassword"
bzlipi.HostAddress = "192.168.1.100"
bzlipi.ShowTransferStatusWindow = False
bzlipi.LocalPromptBeforeOverwrite = False
result = bzlipi.ReceiveFile( "local.txt", "MYLIB/F4101" )
MsgBox bzlipi.ErrorMessage

The following example opens a configuration file and then starts the download from the host.

set bzlipi = CreateObject("BlueZone.LIPI")
bzlipi.OpenSettings "MyConfig.adf"
result = bzlipi.ReceiveFile( "local.txt", "MYLIB/F4101" )
MsgBox bzlipi.ErrorMessage

The following example uses the ShowGUI method. The message box will not open until the user closes the Host File Transfer window.

set bzlipi = CreateObject("BlueZone.LIPI")
bzlipi.ShowGUI
MsgBox "Host File Transfer has been closed"