Loading ...
Sorry, an error occurred while loading the content.

[Clip] Close Selected Documents

Expand Messages
  • Jody
    Hi All, Claes focused a document, Jonathan closed one, I open a bunch of them, but forgot to close some or all of them. At times I have many documents open
    Message 1 of 1 , Sep 4, 1999
    • 0 Attachment
      Hi All,

      Claes focused a document, Jonathan closed one, I open a bunch of
      them, but forgot to close some or all of them. At times I have
      many documents open and want the most of them closed, but don't
      want to use Close All because I have to go back and open a small
      hand full. With this clip you can choose what you want to close.
      Enjoy and GoodNoteNite.

      <--- Copy below this line --->
      H=Close Open Files
      ; 09/04/1999, Ntb-Clips@..., Claes, Jonathan, jody
      ; Closes selected documents from checkbox list

      ^!ClearVariable %FilePaths%
      ^!Set %n%=0; %us%=^?[Show checkboxes==_Checked^=_|UnChecked^=]

      :GetList
      ^!Inc %n%
      ^!If ^%n% > ^$GetDocCount$ DoArray
      ; long line - ends with (^%n%)$)$
      ^!Set %OnePath%=^$GetPath(^$GetDocName(^%n%)$)$^$GetFileName(^$GetDocName(^%n%)$)$
      ^!Append %FilePaths%=^%us%^%OnePath%|
      ^!Goto GetList

      :DoArray
      ^!SetArray %CloseDoc%=^?{(T=A;H=25)Select document(s) to close==^%FilePaths%}
      ^!Set %Count%=^%CloseDoc0%
      ^!Set %Index%=0

      :Close
      ^!Inc %Index%
      ^!If ^%Index% > ^%Count% End
      ^!Close ^%CloseDoc^%Index%%
      ^!Goto Close

      <--- Copy above this line, right --->
      <--- click over the Clipbook and --->
      <--- choose "Add from Clipboard" --->


      Happy Clip'n!
      Jody

      The NoteTab Clip List...
      mailto:Ntb-Clips-Subscribe@...
      mailto:Ntb-Clips-UnSubscribe@...
    Your message has been successfully submitted and would be delivered to recipients shortly.