怎么设置vfp的临时文件夹
发布时间:2010-05-24 21:49:13 文章来源:www.iduyao.cn 采编人员:星星草
如何设置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
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
菜鸟求一句命令
我做VC的,没做过VFP,完全不懂,帮人问一句命令,谢谢各位大牛们帮忙。
“我有两张表,称为A表,B表,其中B表数据很多,我现在...
-
求助:实现grid修改后直接后直接更新到数据表里
各位道友,小弟有两个问题
1。如何实现在grid表格里直接修改数据;
2。修改的数据可直...
-
请问treeview 里面如何选择性展开其中某树枝及其获得焦点?
请问如何在treeview里面,如何实现选择性展开其中的某枝,原本是全部收起来...
-
vfp中treeview控件的用法
我在VFP中使用了treeview控件,我对treeview中的某一个节点的文本修改了,怎么在treeview窗口中进行就更。
...
-
求编排考号问题
需求是这样的,如1年级有8个班,那么考号编排规则是:第1个班的第一个学生考号为1号,第2个班的第一个学生考号为2号,以此...
-
大家讨论,对现有vfp6.0产品只升级为sql server数据库有必要吗?
功能保留原来 只是数据库变化
我本人觉得会丧失很多vfp 本身文...
-
表单中的出错,第一次遇到
VFP9.0中新建了一个表单
表单中,增加一个command1,使其width=25
然后,将此按钮,复制150个出来. (此时...
-
VFP 如何做一个类似word控件?
如题。
类似于电子病历的那种控件。可以像word一样的编辑文件、表格、图片等
可以直接取数据库的数...
-
vfp使用Msxml2.ServerXMLHTTP的乱码问题
oo = = newObject('Msxml2.ServerXMLHTTP')
oo.open('post','http://localhost/',.f.)
o...
-
表中定位 如下 记录 seek办不到
表结构
dlh fb
100 5
110 2
112 3
........
假如 我想查找 dl...