你要在程序里面删除文件,(PB8下)得使用FileExists()函数进行判断,如果存在再使用Filedelete()函数进行删除,当然需要你你先断开对数据库的连接,注销实例(如jakey_yang(飘剑) 所说),还有就是你可能需要,调用API函数修改文件的属性~~
FUNCTION ulong SetFileAttributes(ref string lpFileName,ulong dwFileAttributes) LIBRARY "kernel32.dll" ALIAS FOR "SetFileAttributesA"
其中lpFileName为文件名,dwFileAttributes为设置的文件属性(设为存档属性的话,数值为32)
例如
ulong u_result
string ls_filename="d:\as_stu.db",
u_result=SetFileAttributesls_filename,32)
if u_result=1 then
messagebox("提示",ls_filename+"已经被设置为存档属性!")
else
messagebox("提示",ls_filename+"存档属性设置失败!")
end if