主题：请教删除文件的路径问题
fdxxhjc
[专家分：0] 发布于 2010-05-20 15:41:00
先生您好,我再请教一个问题:文件夹1中有一个文件为:wb.txt(即相对路径为:文件夹1\wb.txt),现在在'文件夹1'外有一个prg文件,该prg文件只一行代码"DELETE FILE 文件夹1\wb.txt"(即想删除这个文本文件,并且这个prg文件与'文件夹1'既不在同一盘符下,而且'文件夹1'在哪个盘中又是不确定的),现在实现不了,我想应该是在这行代码前添加路径,请教这个添加的代码应是怎样的,谢谢
回复列表 （共2个回复）
沙发
fyyylyl [专家分：8550] 发布于 2010-05-21 17:16:00
“'文件夹1'在哪个盘中又是不确定的”----总得有点规律吧？
板凳
zxl931 [专家分：3420] 发布于 2010-05-21 21:33:00
下面代码可以解决这个问题
PUBLIC cDefaultPath
lcSys16 = SYS(16) &&查询当前运行程序名
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
cDefaultPath=LEFT(lcProgram, RAT("\", lcProgram))
CD LEFT(lcProgram, RAT("\", lcProgram)) &&设置默认路径
其中全局变量cDefaultPath就是当前程序默认路径，以上代码放在主程序中，每次程序
运行就设置默认路径，移动了程序所在的文件夹位置也不影响。
当然cDefaultPath+"文件夹1\wb.txt"就是文件wb.txt的绝对路径了，
要删除这个文件，可以用一下命令：
dele File cDefaultPath+"文件夹1\wb.txt"
或者
dele File 文件夹1\wb.txt &&设置了默认路径情况下，只用相对路径即可
还可参考：
[url=http://www.meizvfp.com/bbs/dispbbs.asp?boardid=2&replyid=42731&id=86247&skin=0&page=1&star=1]http://www.meizvfp.com/bbs/dispbbs.asp?boardid=2&replyid=42731&id=86247&skin=0&page=1&star=1[/url]
我来回复
您所在位置：