Halcon安全删除目录（全部目录和文件）20190129

     自带的算子只能删除空目录，否则会报错，所以扩写了一个算子delete_dir_safely来实现安全的删除所有二级或者多级文件和目录，最后再删除最上层目录，这样就不会出现删除顶层目录，里面有文件的时候就报错的问题了！

核心代码：

1. try
   
2.     list_files (Dir, ['files','directories'], Files)
   
3.     for Index:=0 to |Files|-1 by 1
   
4.         strLen:=strlen(Files[Index])
   
5.         Pos:=strrchr(Files[Index], '.')
   
6.         if(-1 == Pos)
   
7.             Pos1:=strrchr(Files[Index], '\\')
   
8.             if(Pos1+1 == strLen)
   
9.                 *记得添加自己到函数目录，否则无法加载自身
   
10.                 delete_dir_safely(Files[Index])
    
11.             endif
    
12.         else
    
13.             delete_file (Files[Index])
    
14.         endif
    
15.     endfor
    
16.     remove_dir (Dir)
    
17. catch (Exception)
    
18.    
    
19. endtry
    
20. return ()

复制代码

懒人请自行下载:

游客，本帖隐藏的内容需要积分高于 5 才可浏览，您当前积分为 0

thanks

delete_dir_safely 没定义啊

阉割的，不能用，骗子

风过无痕糖糖 发表于 2020-2-21 00:10
阉割的，不能用，骗子

没有骗你，这个数外部函数，要自己封装或者直接下载使用！

猪王牛逼了。