Foxtable(狐表)用户栏目专家坐堂 → 怎么实现删除目录之前 关闭所有进程


  共有2934人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
怎么实现删除目录之前 关闭所有进程  发帖心情 Post By:2021/1/9 20:06:00 [只看该作者]

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

在窗口中放置一web浏览器  如果打开word或pdf或Excel等文件 【别的文件不会提示被打开】会将对应文件下载到reports目录下 然后文件显示在web浏览器中
 然后在项目退出后 想删除reports目录及所有文件  总会提示最后一个打开的文件已经打开 不能删除

下面代码{直接可以实现关闭对应进程名的进程 并删除目录,如果放入窗口关闭前或后事件 提示错误如上}
Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle.Contains(vars("进程名")) And p.MainWindowTitle<>"" Then
        MessageBox.Show(vars("进程名"))
        p.kill
    End If
Next

If FileSys.DirectoryExists(ProjectPath & "\Reports") Then '
    FileSys.DeleteDirectory(ProjectPath & "\Reports",2,2)
End If

代码应该怎么完善或者该写在哪?
[此贴子已经被作者于2021/1/9 20:17:23编辑过]

 回到顶部
总数 15 1 2 下一页