参见热贴

https://bbs.pinggu.org/thread-424967-1-1.html

/****************************************************************

LZ可以先通过如下代码得到所有的个股文本文件名称及数量，然后参照https://bbs.pinggu.org/thread-424967-1-1.html中提供的方法

****************************************************************/

filename StockFile pipe 'dir F:\StockFile /b' ;
data file_list ;
  length fname $40. ;
  infile indate truncover ;
  input StockFile $40. ;
  call symput( 'numoffiles',_n_ ) ;
run ;