Imports pfcls

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Label1.Text = "Click to recieve working directory"

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Connection to ProE
        Dim window As IpfcWindow
        Dim bsession As IpfcBaseSession
        Dim session As IpfcSession
        Dim asyncConnection As IpfcAsyncConnection
        Dim Casync As New CCpfcAsyncConnection

        asyncConnection = Casync.Connect(DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value)
        bsession = asyncConnection.Session
        session = asyncConnection.Session
        window = session.CurrentWindow

        bsession.EraseUndisplayedModels()

        'Grab Working Directory file path
        Dim workDir As String
        workDir = bsession.GetCurrentDirectory()

        'Display working directory
        Label1.Text = workDir

        '**Disconnect from Pro/E**
        If Not asyncConnection Is Nothing Then
            If asyncConnection.IsRunning Then
                asyncConnection.Disconnect(1)
            End If
        End If

    End Sub
End Class