当前位置: 代码迷 >> PB >> 奇怪啊别人都行,为什么小弟我删不掉呢
  详细解决方案

奇怪啊别人都行,为什么小弟我删不掉呢

热度:58   发布时间:2016-04-29 08:15:55.0
奇怪啊,别人都行,为什么我删不掉呢
PB新手加小白一只,汪汪
在CSDN逛了好几天了
终于找到删文件夹方面知识
FUNCTION ulong RemoveDirectory(ref string lpPathName) LIBRARY "kernel32.dll " ALIAS FOR "RemoveDirectoryA " 

然后调用
RemoveDirectory( 'D:/2005/2007') 想把这个2007文件夹删掉

删不掉,我查了kernel32.dll在SYSTEM32下啊
我很不容易才弄明白如何LIBRARY kernel32.dll ,原来要写到external functions中
但是删不掉,不知道为了什么。。。。

ps:用下面方法也无法复制,奇了怪了
public FUNCTION boolean CopyFileA(ref string cfrom, ref string cto, boolean flag) LIBRARY "Kernel32.dll"

------解决方案--------------------
文件夹中有其他文件或者文件夹,好像删不掉
------解决方案--------------------
删除文件PB 带有 filedelete(文件名), 在此前要看看文件是否存在。
也就是说,在 filedelete(as_filepath + lb_file.text(i)) 前,可以写:
messagebox('', as_filepath + lb_file.text(i)) 看看文件地址拼写是否正确。

代码如:
boolean lb_deleted

lb_deleted = filedelete('文件名')
if lb_deleted then
 
else
messagebox('', '删除文件出错!')
end if

  相关解决方案