path-dialog.ss: File/Directory Dialog

To load: (require (lib "path-dialog.ss" "mrlib"))