This routine allows you to create subfolders under the folder where your drawing is located. Tip author Sam Lucido uses this routine to create his default company standard subfolders.
Start by loading the LISP file. When you run the command SETCAD, five subfolders are created named spreadsheets, client, design, xrefs, and images. Feel free to rename these subfolders as needed, and to increase or decrease the number of subfolders. The code is documented, making modifications easy.