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

[Clip] MultiFiles... File Clip

Expand Messages
  • Jody
    Hi All, This clip will Open, Copy, Move, Recycle, or Delete Single or Multiple Files. Enjoy!-) To change the default Action simply move the underscore.
    Message 1 of 1 , Jun 1, 1999
    • 0 Attachment
      Hi All,

      This clip will "Open, Copy, Move, Recycle, or Delete Single or
      Multiple Files." Enjoy!-)

      To change the default Action simply move the underscore.
      Presently the clip is set to Open files. Whichever file group
      comes first in the string is the default. Be careful that you
      change that correctly if you do. I like to have a few of these
      in different Libraries and set the defaluts to the Library type.
      For example if you wanted one in a Library mainly for Clipbook
      maintenance you would want to move the underscore from Open to
      _MoveFile and...

      move:
      NoteTab (*.clb;*.otl;*.fvr;*.tpl)|*.clb;*.otl;*.fvr;*.tpl|

      in front of:
      Text (*.txt;*.ini)|*.txt;*.ini|

      You may add or take away from and of the file types of course.
      Just do the same to each side of the |bar.

      Long header line for the status bar tip.

      H=Multi-Files... Open, Copy, Move, Recycle, or Delete Single or Multiple Files.
      ; MultiFiles... Last updated 06-01-1999
      ; "Jody Adair" <Sojourner@...>
      ; The NoteTabbers Assistant Page
      ; http://www.sureword.com/notetab

      ^!Set %Action%=^?[(H=5)==_Open|CopyFile|MoveFile|RecycleFile|DeleteFile]

      ; Very long line.
      ^!SetArray %File%=^?[(T=O;S=M;F="Text (*.txt;*.ini)|*.txt;*.ini|Hyper Text (*.*htm*;*.asp;*.css)|*.*htm*;*.asp;*.css|Pictures (*.gif;*.jpg;*.jpeg)|*.gif;*.jpg;*.jpeg|NoteTab (*.clb;*.otl;*.fvr;*.tpl)|*.clb;*.otl;*.fvr;*.tpl|Back up (*.*bac*;*.*bak*)|*.*bac*;*.*bak*|Dictionaries (*.udt;*.dic)|*.udt;*.dic|Binaries (*.exe;*.zip)|*.exe;*.zip")Browse to folder choose file(s) ... =F:\NTP\]

      ^!Set %TotalCount%=^%File0%
      ^!Set %CurrentCount%=0
      ^!SetHintInfo Moving Files...

      :Loop
      ^!Inc %CurrentCount%
      ^!If ^%CurrentCount% > ^%TotalCount% End

      ^!IfSame "^%Action%" "Open" Open
      ^!IfSame "^%Action%" "RecycleFile" Recycle
      ^!IfSame "^%Action%" "DeleteFile" Delete

      ; Long line.
      ^!^%Action% "^%File^%CurrentCount%%" "^?[(T=D)To where (Ignored if Copy or Move actions are performed.)=F:\NTP\Test\]"
      ^!Goto Loop

      :Open
      ^!^%Action% "^%File^%CurrentCount%%"
      ^!Goto Loop

      :Recycle
      ^!^%Action% "^%File^%CurrentCount%%"
      ^!Goto Loop

      :Delete
      ; Delete this line and below to remove nag screen.
      ^!IfTrue ^%GetEmYES% Skip
      ; Very long line.
      ^!Continue The files you selected will go out to never never land if you continue. Don't ya hate these things? I put it here for Nicole. :-) You will not be prompted again during this Clipbook session. Continue?
      ^!Set %GetEmYES%=1
      ; Delete this line and above to remove nag screen.
      ^!^%Action% "^%File^%CurrentCount%%"
      ^!Goto Loop

      Happy NoteTabbin',
      Jody Adair

      The NoteTabbers Assistant Page
      http://www.sureword.com/notetab
      NoteTab Home Page - Go Pro.....
      http://www.notetab.com

      ------------------------------------------------------------------------

      eGroups.com home: http://www.egroups.com/group/ntb-clips
      http://www.egroups.com - Simplifying group communications
    Your message has been successfully submitted and would be delivered to recipients shortly.