Macro mf_mkdir - Création récursive de répertoires

%macro mf_mkdir(dir )/*/STORE SOURCE*/; %local lastchar child parent; %let lastchar = %substr(&dir, %length(&dir)); %if (%bquote(&lastchar) eq %str(:)) %then %do; /* Cannot create drive mappings */ %return; %end; %if (%bquote(&lastchar)=%str(/)) or (%bquote(&lastchar)=%str(\\_)) %then %do; /* last char is a slash */ %if (%length(&dir) eq 1) %then %do; /* one single slash - root location is assumed to exist */ %return; %end; %else %do; /* strip last slash */ %let dir = %substr(&dir, 1, %length(&dir)-1); %end; %end; %if (%sysfunc(fileexist(%bquote(&dir))) = 0) %then %do; /* directory does not exist so prepare to create */ /* first get the childmost directory */ %let child = %scan(&dir, -1, %str(/\\:)); /* If child name = path name then there are no parents to create. Else they must be recursively scanned. */ %if (%length(&dir) gt %length(&child)) %then %do; %let parent = %substr(&dir, 1, %length(&dir)-%length(&child)); %mf_mkdir(&parent) %end; /* Now create the directory. Complain loudly of any errs. */ %let dname = %sysfunc(dcreate(&child, &parent)); %if (%bquote(&dname) eq ) %then %do; %put %str(ERR)OR: could not create &parent + &child; %abort cancel; %end; %else %do; %put Directory created: &dir; %end; %end; /* exit quietly if directory did exist.*/ %mend mf_mkdir;