主题：[求助]删除文件

参考：http://www.foxtable.com/webhelp/scr/0338.htm

 

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

此主题相关图片如下：图像 2.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:pdf.rar

试试

 

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

老师，还是无法删除。

 好像是不能直接删除的，因为这个时候，文件还在显示。试试这样

 

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

 

 变通处理下，删除的时候，把数据另存到一个表里面去。然后在窗口关闭或者项目打开或者弄一个按钮，专门删除文件。

 

谢谢老师