varirf_dir.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 24 行

*! version 1.0.2  05nov2002
program define varirf_dir
	version 8.0
	syntax [anything(id="directory" name=basedir)]
/* anything passes strings asis, 
 * local assignment clears quotes
 */	
 	local basedir `basedir'

	if `"`basedir'"' != "" {
/* second local clears leading and trailing spaces	
 */
	 	local basedir `basedir'
		ls `"`basedir'/*.vrf"'
		exit
	}
	else {
		ls *.vrf
	}	
end

exit