0. #lang racket
1.  
2. ; Ich definiere eine Funktion:
3. ; Alle Top-Level-Ordner des angegebenen Verzeichnisses
4. ; als Liste von Dateisystemeinträgen zurückgeben
5. (define (get-first-level-folders from-dir)
6.   (parameterize ([current-directory from-dir])
7.     (filter
8.        directory-exists?
9.        (directory-list from-dir))))
10.  
11. ; Ergebnis ausgeben mit mkdir davor zum "copypasten"
12. (for-each
13.    (lambda(entry)
14.      (displayln (~a "mkdir \"" entry "\"")))
15.    (get-first-level-folders "c:\\Ordner1\\"))

=>

directory-list: could not open directory

path: /home/pasterack/racket68/share/pkgs/web-server-lib/w

eb-server/default-web-root/htdocs/c:\Ordner1\/c:\Ordner1\

system error: No such file or directory; errno=2