-\r
-def pomper(r)\r
- Dir::foreach(r){|f|\r
- next if f[0,1] == '.'\r
- fichier = (r == '.' ? '' : r + "/") + f\r
- if File::directory?(fichier)\r
- pomper(fichier) \r
- else\r
- p fichier \r
- end\r
- }\r
-end\r
-\r
-pomper("F:\\films")
\ No newline at end of file