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]]* |