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

Dir stuff clip error

Expand Messages
  • rainmark@att.net
    Hi Jody, The All file sizes (DOS) clip doesn t seem to be working right. If I use the Display in info box option, it doesn t display the paths and it also
    Message 1 of 1 , Oct 19, 2001
      Hi Jody,
      The "All file sizes (DOS)" clip doesn't seem to be
      working right. If I use the "Display in info box"
      option, it doesn't display the paths and it also doesn't
      show the sizes, instead showing "[error in expression]

      If I use the "Display in new document" option, it shows
      the paths but still doesn't show the sizes, but also
      doesn't display the above error.


      ^!Continue Gets the path and file names of a drive
      including subfolders and inserts into a new document
      that is made for you. See All Files Help to change
      output. Continue?

      ^!Set %Folder%=^?{(T=D)Browse: full path, end in
      backslash=^$GetValue(DirStuff:Browse)$}; %Drop%=^?{Drop
      down: full path, end in backslash=_If used, Browse is
      ignored, may enter path manually^=1|^$GetValue
      (DirStuff:Path9)$}; %Type%=^?{(H=10)File &Types,
      wildcards OK: *.txt or *.*htm*;*.txt=*.bmp|All
      Files^=*.*|Html Only^=*.*htm*|_Text Only^=*.txt|Html &
      Library^=*.clb|Ini^=*.ini}; %Display%=^?{==_Display in
      new document^=|Display in info box^=1}; %DosOptions%=^?
      {Sort by, n-name, d-date, s-size=/o:n}^?{Include
      subdirectories=/s|_No^=}^?{Long filename only=_/b|No^=};
      %FullPath%=^?{Add path for single directory=_Yes|No}

      ^!Set %AddPath%=^%Folder%
      ^!IfTrue ^%Drop% Skip
      ^!Set %Folder%=^%Drop%

      ^!SetHintInfo Working...
      ^!SetScreenUpdate Off
      ^!Set %OutPut%=^$GetDosOutput(Dir ^%DosOptions% "^%
      ^!Set %FileSize%=^$GetFileSize("^%Folder%^%OutPut%")$
      ^!Append %TotalSize%=^$Calc((^%FileSize%+^%
      ^!IfTrue ^$IsEmpty("^%OutPut%")$ Error
      ^!IfTrue ^%Display% Info
      ^!Toolbar New Document
      ^!IfTrue ^%FullPath% Next else Skip_2
      ^!Goto Skip
      ^!Goto End

      ^!SetWizardTitle ~^$StrFill(" ";66)$^%Folder%^%Type%
      ^$StrFill(" ";66)$~
      ^!Info [L]^p^%TotalSize%kb^p^p^%OutPut%
      ^!Goto End

      ^!StatusShow It appears the ^%Folder%^%Type% was not in
      the folder you searched.
      ^!Delay 30
    Your message has been successfully submitted and would be delivered to recipients shortly.