- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]删除文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96798)
-- 发布时间：2017/2/28 9:40:00
-- [求助]删除文件
-- 发布时间：2017/2/28 9:45:00
--
参考：http://www.foxtable.com/webhelp/scr/0338.htm
-- 发布时间：2017/2/28 10:26:00
--
Dim Result As DialogResult
Dim r As Row = Tables("pdf文件").Current
If r IsNot Nothing Then
Result = MessageBox.Show("确认删除?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.no Then
Return
Else
FileSys.DeleteFile("I:\\Attachments\\pdf文件\\" & r("列名") , 2, 2)
End If
End If
-- 发布时间：2017/2/28 12:12:00
--
此主题相关图片如下：图像 2.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:pdf.rar |
-- 发布时间：2017/2/28 12:59:00
--
试试
Dim Result As DialogResult
Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
Result = MessageBox.Show("确认删除?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.no Then
Return
Else
e.Form.Controls("WebBrowser1").Address = Nothing
system.Threading.Thread.sleep(1000)
FileSys.DeleteFile("I:\\狐表\\pdf\\Attachments\\pdf文件\\" & r("第一列") , 2, 2)
End If
End If
-- 发布时间：2017/2/28 17:33:00
--
老师，还是无法删除。
-- 发布时间：2017/2/28 18:21:00
--
好像是不能直接删除的，因为这个时候，文件还在显示。试试这样
Dim Result As DialogResult
Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
Result = MessageBox.Show("确认删除?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.no Then
Return
Else
e.Form.Controls("WebBrowser1").Address = Nothing
GC.Collect
FileSys.DeleteFile("I:\\狐表\\pdf\\Attachments\\pdf文件\\" & r("第一列") , 2, 2)
End If
End If
变通处理下，删除的时候，把数据另存到一个表里面去。然后在窗口关闭或者项目打开或者弄一个按钮，专门删除文件。
-- 发布时间：2017/2/28 20:40:00
--
谢谢老师