DirsGet example

Example for DirsGet method

Dim sDirOpt As String
Dim sDirData As String
Dim sDirLib As String
Dim sDirCom As String

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Command1.Text = "DirsGet"
    cAvax1.StartAvax()
    sDirOpt = My.Application.Info.DirectoryPath & "\OptAvax"
    sDirData = My.Application.Info.DirectoryPath & "\DataAvax"
    sDirLib = My.Application.Info.DirectoryPath & "\LibAvax"
    sDirCom = "" 'unused
    Call cAvax1.DirsSet(sDirOpt, sDirData, sDirLib, sDirCom)
End Sub

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    cAvax1.EndAvax()
End Sub

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    Dim sMsg As String
    Call cAvax1.DirsGet(sDirOpt, sDirData, sDirLib, sDirCom)
    sMsg = "DirOpt=" & sDirOpt & vbCrLf
    sMsg = sMsg & "DirData=" & sDirData & vbCrLf
    sMsg = sMsg & "DirLib=" & sDirLib & vbCrLf
    MsgBox(sMsg, MsgBoxStyle.Information, "DirsGet")
End Sub