Imports System
Imports NXOpen

Module NXJournal
  Sub Main (ByVal args() As String)
    Dim sess As Session = Session.GetSession()
    Dim wp As Part = sess.Parts.Work
    Dim lw as ListingWindow = sess.ListingWindow
    lw.open()
    Dim fsize As Long = New IO.FileInfo(wp.FullPath).Length
    lw.WriteLine("Size of " & wp.FullPath & " is " & (fsize / 1024).ToString("F2") & " KB")
    Diagnostics.Process.Start("explorer.exe", IO.Path.GetDirectoryName(wp.FullPath))
  End Sub
End Module