主题：求助 如何删除项目文件下某个目录下所有文件

求助 如何删除项目文件下某个目录下所有文件

帮助里代码如下 是删除指定文件

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 & "附件\")