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

2549[Clip] [NB] ^$GetFileFirst Sorting

Expand Messages
  • Jody
    Feb 1, 2000
    • 0 Attachment
      Hi All,

      Can somebody check my script and two things. I snipped a bunch
      of stuff out to make it as short as I could. It is set up to
      give you a list of file name in a folder now. Sort by Name and
      Rev. I do not see it reversed, but I do with other sorting

      Next, take the commented places out and set it up to append to
      file and the open it. Sort by date, no Rev. I get all the files
      duplicated like it is going through the folder twice which has
      three text files in it, but not with the other sorting methods.



      ; long line till blank
      ^!Set %Folder%=^?{(T=D)Browse: full path, end in backslash=^$GetDocumentPath$}; %Type%=^?{(H=10)File &Types, wildcards OK=*.txt}; %Sort%=^?{Sorting method=Unsorted|Name|Type|_Date|Size}; %Rev%=^?{Reverse sorting=_No^=|Yes^=Rev}; %Divide%=^%nl%^?{Add separator=^$GetDate(mm-dd-yyyy)$}^%nl%; %All%=^?{Filename for all appended files=All.txt}

      ^!SetHintInfo Working...
      ^!SetScreenUpdate Off

      ^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Rev%^%Sort%)$
      ^!IfTrue ^$IsEmpty("^%FullPath%")$ Error

      ^!IfTrue ^$IsEmpty(^%FullPath%)$ CloseFileFind
      ^!Set %File%=^$GetFileName(^%FullPath%)$^%Divide%^%nl%
      ^!Append %FileList%=^%File%
      ; Remove the comment below and add one to two lines above.
      ; ^!AppendToFile "^%Folder%^%All%" ^$GetFileText(^%FullPath%)$^%Divide%
      ^!Set %FullPath%=^$GetFileNext$
      ^!Goto Loop

      ^!Info ^%FileList%
      ; Take out the comment below and add above.
      ; ^!Open "^%Folder%^%All%"
      ^!Goto End

      ^!Info Oops! No files by search type found.

      Happy Clip'n!


      Subscribe, UnSubscribe, Options
    • Show all 4 messages in this topic