curdir( ) 函数示例

下面的示例把当前目录存入一个变量中，设置默认值为 visual foxpro 启动时的目录。显示新的目录，再把默认值设为原来的目录，并显示原来的目录。

clear
? 'current directory: ', curdir( )
gcolddir = set('default') + sys(2003)
set default to (home( ))
? 'visual foxpro directory: ', curdir( )
set default to (gcolddir)
? 'current directory: ', curdir( )