分享一条路径程序(源码)
set bell on SET BELL TO (ADDBS(GETENV('windir')))+"MEDIA\DING.WAV"
CLEAR
prgname="main.exe"
prglen=len(prgname)
allname=allt(sys(16))
alllen=len(allname)
pathname=substr(allname,1,alllen-prglen)
?pathname
2017-01-18 12:07