Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Attachmate.Reflection.Objects.Emulation.IbmHosts Library / FileTransfer Object / AS400SendFile Method
The transfer request file that provides all necessary information about the transfer. Use an empty string to specify configuration information provided by AS/400 Data Transfer keywords.
Displays the file transfer in the Progress window if set to true.
Example
In This Topic
AS400SendFile Method
In This Topic
Transfers one or more PC files to the host using the AS/400 data transfer protocol.
Syntax
expression.AS400SendFile( _
   ByVal transferFile As String, _
   ByVal showStatus As Boolean _
)
where expression is a variable that represents a FileTransfer Object

Parameters

transferFile
The transfer request file that provides all necessary information about the transfer. Use an empty string to specify configuration information provided by AS/400 Data Transfer keywords.
showStatus
Displays the file transfer in the Progress window if set to true.
Remarks
This method is only relevant to 5250 sessions.
Example
This example performs a batch file transfer from a local folder to a remote directory.
Sub TransferFiles()
 
    Dim path As String
 
    path = Environ$("USERPROFILE") & "\Documents\" & "Asciixfrsend.xto"
 
    ThisIbmTerminal.FileTransfer.AS400SendFile path, True
 
    
End Sub
See Also

Reference

FileTransfer Object
FileTransfer Members

Send Feedback