Examples: IsNewDoc property

This script checks if a document has been saved or not before getting the corresponding document on disk and placing it in a folder of the user's choice.

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Dim choice As String
  Set uidoc = workspace.CurrentDocument
  If uidoc.IsNewDoc Then
    Messagebox _
    ( "Save the document before placing it in a folder" )
    Set doc = uidoc.Document
    choice = Inputbox _
    ( "Please enter a folder name: ", "Which folder?" )
    Call doc.PutInFolder( choice )
  End If
End Sub