InfoConnect VBA Guide
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