利用Dopen函数打开指定路径,在当前SAS会话中,获取路径ID;利用Dnum函数获取该路径内的文件数量;利用Do语句循环以及Dread函数,获取路径下每一个文件的名称。
获取名称后,将文件夹路径与文件名称拼接,就获取到文件的对应路径。
**Dopen;%let dirpath = E:\99_Test\Test\test1;data _tmp1; fileres=filename("dirpath","&dirpath."); dirid=dopen("dirpath"); num = dnum(dirid); length direct filename filepath $200; if dirid > 0 and num > 0 then do; do i = 1 to num; direct = "&dirpath."; filename = dread(dirid, i); filepath = catx("\", direct,filename); output; end; end; keep direct filename filepath;run;运行效果如下:
4. 获取全部文件的修改时间