- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助 如何删除项目文件下某个目录下所有文件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57501)
-- 发布时间：2014/9/25 16:39:00
-- 求助 如何删除项目文件下某个目录下所有文件
求助 如何删除项目文件下某个目录下所有文件
帮助里代码如下 是删除指定文件
If
FileSys.FileExists("c:\\data\\fox2.jpg") Then \'如果指定的文件存在
FileSys.DeleteFile("c:\\data\\fox2.jpg",2,2) \'则彻底删除之
End
If
我想删除如项目下\\data这个目录下所有文件怎么操作呢？
下面代码可行否？
If FileSys.FileExists("projectpath & \\data\\") Then \'如果指定的文件存在
FileSys.DeleteFile("projectpath & \\data\\",2,2) \'则彻底删除之
End If
解决方法如下：
If FileSys.DirectoryExists(projectpath & "附件\\") Then \'如果指定的文件存在
FileSys.DeleteDirectory(projectpath & "附件\\",2,2) \'则彻底删除之
End If
如果项目某些代码依赖这个附件目录 那么需要更改为下：
\'判断文件目录是否存在 如果存在就删除它
If FileSys.DirectoryExists(projectpath & "附件\\") Then \'如果指定的文件存在
FileSys.DeleteDirectory(projectpath & "附件\\",2,2) \'则彻底删除之
End If
\'然后重新生成这个目录 便于项目下次调用
FileSys.CreateDirectory(projectpath & "附件\\")
-- 发布时间：2014/9/25 16:40:00
--
呃，删除文件夹 http://www.foxtable.com/help/topics/0333.htm
-- 发布时间：2014/9/25 16:41:00
--
http://www.foxtable.com/help/topics/0333.htm
-- 发布时间：2014/9/25 17:00:00
-- 回复：（李孝春）求助 如何删除项目文件下某个目录下所...
这样写 代码报错
此主题相关图片如下：2121.jpg
-- 发布时间：2014/9/25 17:00:00
--
-- 发布时间：2014/9/25 17:02:00
--
If FileSys.DirectoryExists(projectpath & "附件\\") Then \'如果指定的文件存在
FileSys.DeleteDirectory(projectpath & "附件\\",2,2) \'则彻底删除之
End If
-- 发布时间：2014/9/25 17:05:00
-- 回复：（有点甜）If FileSys.DirectoryExists(project...
谢谢有点甜老师 第一次操作无经验 十分感谢
-- 发布时间：2014/9/25 17:26:00
-- 回复：（有点甜）If FileSys.DirectoryExists(project...
有点甜老师 问题进一步深入
FileSys.DeleteFile("projectpath & \\data\\*.*",2,2) \'则彻底删除之
-- 发布时间：2014/9/25 17:28:00
--
方法1 删除这个目录后,重新建立一个空的文件夹
-- 发布时间：2014/9/25 17:32:00
-- 回复：（Bin）方法1 删除这个目录后,重...
谢谢 我采用了第一个建议 问题达到预想