personal.ado

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

*! version 1.0.0  19oct2000
program define personal
	version 7
	local p : sysdir PERSONAL

        if "$S_OS"=="Windows" { 
		local p : subinstr local p "/" "\", all
	}

	di as txt `"your personal ado-directory is {res}`p'"'
	if `"`1'"'=="dir" | `"`1'"'=="ls" { 
		dir `p', wide
	}
	else	di as txt "(type -personal dir- to see its contents)"
end