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

4703Re: [Clip] Re: Clip to Generate File Listings?

Expand Messages
  • Jody
    Sep 19, 2000
    • 0 Attachment
      Hi Larry,

      >It sure takes a lot of doing to get some of these things to work
      >right. I do believe that there is yet a third way to approach
      >this. Dos will get the information in the correct format
      >(mostly) but it messes up the accented characters. ^$GetFiles$
      >will preserve the accented characters but it will not get the
      >subfolders as dos will. It seems to me that the best approach
      >would be to use both methods together. Let dos get the subfolder
      >names and save them to a file. dir /on/ad/b/s

      Perhaps you can take the last Clip I posted on this thread and
      instead of using GetFiles for my ^!SetArray, use your DOS dir. I
      was going to do, but just have too much going on now to do so
      with testing, etc. As you know there is usually a number of ways
      to do things. I actually just did a copy/paste for most the code
      in this Clip from a DirStuff Clip. I took out about a half dozen

      <--- Copy below this line --->
      ; Last Updated 09-19-2000, Sojourner@..., jody
      ^!Set %Folder%=^?{(T=D)&File folder}; %BaseDir%=^?{(T=D)&Base folder}; %Type%=^?{File &Types=*.*|_*.*htm*;*.asp;*.css;*.js;*.xml|*.gif;*.jpg;*.jpeg;*.png;*.bmp}; %Sort%=^?{&Sort order=Date|_Name|Size|Type|UnSorted}; %Rev%=^?{&Reverse sort order=Yes^=Rev|_No^=}

      ^!SetListDelimiter ^p
      ^!SetArray %FileList%=^$GetFiles(^%Folder%;^%Type%;;^%Rev%^%Sort%)$
      ^!Set %Count%=^%FileList0%
      ^!Set %Index%=0

      ^!Set %Save%=^$GetPath(^$GetRelativeName(^%FileList1%;^%BaseDir%)$)$
      ^!Set %Save%=^$StrReplace("..\";;"^%Save%";0;0)$
      ^!Set %Save%=^$StrReplace("\";;"^%Save%";0;0)$

      ^!SetScreenUpdate Off
      ^!Inc %Index%
      ^!If ^%Index% > ^%Count% Skip_2
      ; long line till blank
      ^!Insert ^$StrReplace("..\";;"^$GetRelativeName(^%FileList^%Index%%;^%BaseDir%)$";0;0)$^p
      ^!Goto Loop
      ^!Save:As "^?{Filename=^%BaseDir%^%Save%}.txt"

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

      Happy Clip'n!


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