首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

怎么设置vfp的临时文件夹

2012-03-26 
如何设置vfp的临时文件夹我在设置中设置了临时文件夹d:\temp我在config.fpw文件中已设置了临时文件夹 T

如何设置vfp的临时文件夹
我在设置中设置了临时文件夹="d:\temp"
我在config.fpw文件中已设置了临时文件夹 TMPFILES="d:\temp"
编译后,运行程序查看时,却没有设置成功,又变成默认了,请教高手应该如何设置临时文件夹。

[解决办法]
config.fpw加入项目中没有,如果没有,你的设置无效
[解决办法]
我觉得,楼主应该直接把目的说清楚,不知道楼主的目的是什么?我经常用这段代码,贴出来,看对楼主是否有用?

 
 * ------------------------------------------------- \\ 获得当前目录、系统目录
 
DECLARE LONG GetSystemDirectory IN WIN32API STRING @ , LONG 
DECLARE LONG GetWindowsDirectory IN WIN32API STRING @ , LONG 
DECLARE LONG GetCurrentDirectory IN WIN32API LONG , STRING @
public LCSYSDIR , LCWINDIR , LCCURDIR , LNSTRINGLEN,n_dy
 
LCSYSDIR = SPACE(200) + CHR(0)
LCWINDIR = SPACE(200) + CHR(0)
LCCURDIR = SPACE(200) + CHR(0)
LNSTRINGLEN = GETSYSTEMDIRECTORY(@LCSYSDIR,200)
LCSYSDIR = LEFT(LCSYSDIR,LNSTRINGLEN)
LNSTRINGLEN = GETWINDOWSDIRECTORY(@LCWINDIR,200)
LCWINDIR = LEFT(LCWINDIR,LNSTRINGLEN)
LNSTRINGLEN = GETCURRENTDIRECTORY(200,@LCCURDIR)
LCCURDIR = LEFT(LCCURDIR,LNSTRINGLEN)

* ---------------------------- \\ 添加临时目录

PUBLIC M_DISK , M_TEMP_PATH
set defa to &lccurdir
_SCREEN.WINDOWSTATE = 1
AA = 'c:\windows'
if directory('&aa')<>.t.
AA = 'c:\winnt'
if directory('&aa')<>.t.
DECLARE INTEGER CreateDirectory IN kernel32 STRING , INTEGER 
DECLARE INTEGER GetLastError IN kernel32
LPSECURITYATTRIBUTES = 0
LPPATHNAME = AA
IF CREATEDIRECTORY(LPPATHNAME,LPSECURITYATTRIBUTES) = 0
ENDIF 
ENDIF 
ENDIF 
M_TEMP_PATH = AA + '\temps'
if directory('&m_temp_path')<>.t.
DECLARE INTEGER CreateDirectory IN kernel32 STRING , INTEGER 
DECLARE INTEGER GetLastError IN kernel32
LPSECURITYATTRIBUTES = 0
LPPATHNAME = M_TEMP_PATH
IF CREATEDIRECTORY(LPPATHNAME,LPSECURITYATTRIBUTES) = 0
ENDIF 
ENDIF 
TRY

ERASE &m_temp_path\*.*
ERASE *.dbf
CATCH
ENDTRY

热点排行