Code:
set %loc $qt($sdir(c:\,Select location) $+ Sample)
mkdir %loc

Spelling mistakes, grammatical errors, and stupid comments are intentional.