0

如何检查目录是否已存在，如果不存在，则创建它？

我在 Windows 7 下使用带有 SAS EG 5.1 的 SAS 9.3 服务器。

%macro chk_dir(dir=) ; 
   options noxwait; 
   %local rc fileref ; 
   %let rc = %sysfunc(filename(fileref,&dir)) ; 
   %if %sysfunc(fexist(&fileref))  %then 
      %put NOTE: The directory "&dir" exists ; 
   %else 
     %do ; 
         %sysexec md   &dir ; 
         %put %sysfunc(sysmsg()) The directory has been created. ; 
   %end ; 
   %let rc=%sysfunc(filename(fileref)) ; 
%mend chk_dir ;

此代码来自SAS 网站。

但是，当我尝试使用此宏创建文件夹时%chk_dir(dir=E:\foo\20140904_test);，它无法创建文件夹，并且我收到以下日志消息：

MLOGIC(CHK_DIR):  %SYSEXEC  md   &dir
SYMBOLGEN:  Macro variable DIR resolves to E:\foo\20140904_test
ERROR: Shell escape is not valid in this SAS session. 
MLOGIC(CHK_DIR):  %PUT %sysfunc(sysmsg()) The directory has been created.

该目录E:\foo'确实存在，并且调用%chk_dir(dir=E:\foo);会给出日志输出：NOTE: The directory "E:\foo" exists如预期的那样。

4

1 回答 1

1

你可以添加

Options DLCREATEDIR;

到您的代码 - 如果它不存在，这将自动创建文件夹。否则，如果您尝试将结果保存到不存在的文件夹，您将收到错误消息。

但这只能解决保存问题，如果您只想检查，它不提供任何解决方案。

于 2014-09-04T12:09:41.823 回答