$LANG = "VBScript"
cr = Chr(13)

haWaitForString cr

file = "C:\file\to\send\testfile.txt"
haSetXferProtocol 1,8
haXferSend file, 1

haSetXferProtocol 2, 8 'use zmodem to receive
haXferReceive "C:\folder\to\download\into\", true

haDisconnectSession

haTerminate

To execute this sample save the above code as a text file. In HyperACCESS click Automation->Run, and select the text file. This script could also be set to run automatically by clicking Properties->File Usage.

Return to sample script index

Hilgraeve