- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]盘符文件夹里面文档名称存在且是否删除=true时批量删除该文档 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196510)
-- 发布时间：2025/5/7 11:06:00
-- [求助]盘符文件夹里面文档名称存在且是否删除=true时批量删除该文档
如题
盘符文件夹里面文档名称存在且是否删除=true时批量删除该文档
添加附件项目格式和压缩包格式上传失败（只能上传图片格式附件）
此主题相关图片如下：求职窗口按钮代码.png
[此贴子已经被作者于2025/5/7 11:10:03编辑过]
-- 发布时间：2025/5/7 11:21:00
--
判断文件是否存在删除：http://www.foxtable.com/webhelp/topics/0338.htm
Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("是否删除=true")
For Each dr As Datarow In drs
If FileSys.FileExists(dr("盘符") & "\\" & dr("文件名称")) Then
drs = DataTables("表A").Select("是否删除=true")
For Each dr As Datarow In drs
If FileSys.FileExists(dr("盘符") & "\\" & dr("文件名称")) Then
FileSys.DeleteFile(dr("盘符") & "\\" & dr("文件名称"),2,2) \'则彻底删除之
End If
Next
End If
Next