InfoConnect VBA Guide
Attachmate.Reflection.Objects.Productivity Library / ScreenHistory Object / SaveScreenHistoryFile Method
The full pathname of the file to save the screen history contents to.
If true, overwrites an existing copy of the file. If false, the file will not be saved if it already exists.
Example
In This Topic
    SaveScreenHistoryFile Method
    In This Topic
    Saves screen history contents to the specified file.
    Syntax
    expression.SaveScreenHistoryFile( _
   ByVal filePath As String, _
   ByVal overwrite As Boolean _
) As ReturnCode
    where expression is a variable that represents a ScreenHistory Object

    Parameters

    filePath
    The full pathname of the file to save the screen history contents to.
    overwrite
    If true, overwrites an existing copy of the file. If false, the file will not be saved if it already exists.

    Return Value

    One of the following ReturnCode values:
    Member Description
    Cancelled Cancelled.
    Error Error.
    PermissionRequired Permission is required.
    Success Success.
    Timeout Timeout condition.
    Truncated The text is truncated.
    Remarks
    If filePath exists, the file is overwritten.
    Example
    This example opens screen history after the session connects and saves it to a file after the session is disconnected. To run this example, copy this code to the ThisIbmTerminal code window.
    Private Sub IbmTerminal_AfterConnect(ByVal sender As Variant)
 
    'When a session connects, open Screen History
    ThisIbmTerminal.Productivity.ScreenHistory.ScreenHistoryPanelVisible = True
    
End Sub
 
 
Private Sub IbmTerminal_AfterDisconnect(ByVal sender As Variant)
    
    Dim rcode As ReturnCode
    Dim path As String
    Dim timeStamp As String
    
    'Get the current time, remove spaces, and replace invalid filename characters.
    timeStamp = Replace(Time, " ", "")
    timeStamp = Replace(timeStamp, ":", "-")
    
    'Set the file path and name.
    path = Environ("USERPROFILE") & "\Documents\Micro Focus\InfoConnect\" & timeStamp & "Screens" & ".rshx"
    
    'If a screen history exists, save it to a file.
    If ThisIbmTerminal.Productivity.ScreenHistory.Count > 0 Then
       
        rcode = ThisIbmTerminal.Productivity.ScreenHistory.SaveScreenHistoryFile(path, True)
        
        'Remove the screens from screen history
        ThisIbmTerminal.Productivity.ScreenHistory.ClearAllScreens
    
    End If
    
End Sub
    See Also

    Reference

    ScreenHistory Object
    ScreenHistory Members

    Send Feedback