以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  remote文件删除  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170830)

--  作者:万寿山
--  发布时间:2021/8/9 8:42:00
--  remote文件删除

Dim zpfilename As String = ProjectPath & "RemoteFiles\\"
If FileSys.FileExists(zpfilename) Then \'如果目标文件已经存在
    FileSys.DeleteDirectory(zpfilename,2,2) \'则删除之
End  If

 

老师:after open project 删除不了,是否可以退出项目时删除?谢谢!

 


--  作者:万寿山
--  发布时间:2021/8/9 8:44:00
--  

退出项目,应该写在那个事件里?

 


--  作者:有点蓝
--  发布时间:2021/8/9 8:54:00
--  
参考:http://www.foxtable.com/webhelp/topics/0668.htm
--  作者:万寿山
--  发布时间:2021/8/9 10:04:00
--  

在命令窗口可以,BEFORECLOSEPROJECT 不可以。

 


--  作者:有点蓝
--  发布时间:2021/8/9 10:09:00
--  
BEFORECLOSEPROJECT 不可以提示什么错误?
--  作者:万寿山
--  发布时间:2021/8/9 10:27:00
--  

有点蓝:没有任何提示。MESSAGE.SHOW 显示目录正常。

 


--  作者:有点蓝
--  发布时间:2021/8/9 10:36:00
--  
If FileSys.FileExists(zpfilename) Then
改为
If FileSys.DirectoryExists(zpfilename) Then 

--  作者:万寿山
--  发布时间:2021/8/9 10:42:00
--  

就是这个原因,谢谢!@有点蓝