@code{(require 'directory)} @ftindex directory @defun current-directory @code{current-directory} returns a string containing the absolute file name representing the current working directory. If this string cannot be obtained, #f is returned. If @code{current-directory} cannot be supported by the platform, then #f is returned. @end defun @defun make-directory name Creates a sub-directory @var{name} of the current-directory. If successful, @code{make-directory} returns #t; otherwise #f. @end defun @defun directory-for-each proc directory @var{proc} must be a procedure taking one argument. @samp{Directory-For-Each} applies @var{proc} to the (string) name of each file in @var{directory}. The dynamic order in which @var{proc} is applied to the filenames is unspecified. The value returned by @samp{directory-for-each} is unspecified. @defunx directory-for-each proc directory pred Applies @var{proc} only to those filenames for which the procedure @var{pred} returns a non-false value. @defunx directory-for-each proc directory match Applies @var{proc} only to those filenames for which @code{(filename:match?? @var{match})} would return a non-false value (@pxref{Filenames, , , slib, SLIB}). @example (require 'directory) (directory-for-each print "." "[A-Z]*.scm") @print{} "Bev2slib.scm" "Template.scm" @end example @end defun