怎么实现删除目录之前关闭所有进程 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有点蓝老师经反复测试如果是当前直接打开word pdf 等文件然后运行如下代码是可以直接关闭进程并且删除目录

但是如果把这些文件全部在窗体web浏览器组件中显示如下代码只能弹出3这个提示 567这个提示无法操作无法关闭进程和删除目录有没有办法修正代码呢？

vars("文件名")="EventCode"

If vars("文件名")="" Then

If FileSys.DirectoryExists(ProjectPath & "\Reports") Then '

MessageBox.Show("1")

FileSys.DeleteDirectory(ProjectPath & "\Reports",2,2)

MessageBox.Show("2")

End If

Else

MessageBox.Show("3")

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()

For Each p As System.Diagnostics.Process In ps

Select Case p.ProcessName

Case "wps","WINWORD","POWERPNT","AcroRd32","WINEXCEL"

If p.MainWindowTitle.Contains(vars("文件名")) And p.MainWindowTitle<>"" Then

MessageBox.Show("5")

p.kill

If FileSys.DirectoryExists(ProjectPath & "\Reports") Then '

MessageBox.Show("6")

FileSys.DeleteDirectory(ProjectPath & "\Reports",2,2)

MessageBox.Show("7")

End If

End Select

End If

[此贴子已经被作者于2021/1/15 13:55:18编辑过]

试试

窗口beforeclose事件

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.Address = nothing

BeforeCloseProject事件

if forms("xx窗口").opened

forms("xx窗口").close

System.Threading.Thread.Sleep(1000)

end if

vars("文件名")="EventCode"

If vars("文件名")="" Then

If FileSys.DirectoryExists(ProjectPath & "\Reports") Then '

……

测试了还是没有达到效果麻烦老师看看（如果是在项目外打开文件代码直接可以起到效果如果在窗体中web浏览器打开文件代码不起效果为何？）

此主题相关图片如下：12121.gif

以下内容是专门发给有点蓝浏览

Else

MessageBox.Show("3")

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()

For Each p As System.Diagnostics.Process In ps

Select Case p.ProcessName

Case "wps","WINWORD","POWERPNT","AcroRd32","WINEXCEL"

If p.MainWindowTitle.Contains(vars("文件名")) And p.MainWindowTitle<>"" Then

MessageBox.Show("5")

p.kill

End If

End Select

If FileSys.DirectoryExists(ProjectPath & "\Reports") Then '

MessageBox.Show("6")

FileSys.DeleteDirectory(ProjectPath & "\Reports",2,2)

MessageBox.Show("7")

End If

主题：怎么实现删除目录之前 关闭所有进程

主题：怎么实现删除目录之前关闭所有进程