JOurnal to open a folder

Change the "myFolder" variable to reference your folder of choice.

Option Strict Off
Imports System
Imports NXOpen

Module Module1

Sub Main()

Dim theSession As Session = Session.GetSession()
If IsNothing(theSession.Parts.Work) Then
'active part required
Return
End If

Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()

Dim myFolder As String
' change the "myFolder" variable to point to your folder of choice
myFolder = My.Computer.FileSystem.SpecialDirectories.MyDocuments
'myFolder = "C:\Temp"
'myFolder = "C:\path\to\your\folder"

Try

System.Diagnostics.Process.Start("explorer.exe", myFolder)

Catch ex As Exception
MsgBox(ex.Message)

Finally

End Try

lw.Close()

End Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer

'Unloads the image when the NX session terminates
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

End Function

End Module