Useful filename » History » Version 1
  iri, 12/17/2011 10:47 PM 
  
| 1 | 1 | iri | h1. Useful filename functions  | 
|---|---|---|---|
| 2 | |||
| 3 | * Return a list with all files and sub-folders (recursively) from a given folder  | 
||
| 4 | _listcat_ is a function defined in "locked/lib/_mlistlib.pkg". This package must be loaded before use this snippet.  | 
||
| 5 | At the beginning, the second argument, _out_, should be at nil.  | 
||
| 6 | |||
| 7 | <pre>  | 
||
| 8 | fun getFilesInFolder (rep, out)=  | 
||
| 9 | if rep == nil then  | 
||
| 10 | out  | 
||
| 11 | else  | 
||
| 12 | let _listofsubdir hd rep -> reps in  | 
||
| 13 | let _listoffiles hd rep -> files in  | 
||
| 14 | (  | 
||
| 15 | if reps != nil then set out = listcat getFilesInFolder reps nil out else nil;  | 
||
| 16 | set out = listcat files out;  | 
||
| 17 | getFilesInFolder tl rep out  | 
||
| 18 | );;  | 
||
| 19 | </pre>  | 
||
| 20 | |||
| 21 | Author : iri  | 
||
| 22 | Date : december 2011  | 
||
| 23 | |||
| 24 | *Return to [[Examples]]*  |