以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有没有办法获取到上一个文件打开的进程 然后进行当前进程关闭 然后再打开下一个文件进程 注意不是把相同类型的文件全部进程关闭哈  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159700)

--  作者:李孝春
--  发布时间:2021/1/5 13:06:00
--  有没有办法获取到上一个文件打开的进程 然后进行当前进程关闭 然后再打开下一个文件进程 注意不是把相同类型的文件全部进程关闭哈
在两个web浏览器组件中打开了多个同样类型的文件  会提示如下错误:文件被占用或者文件被打开

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

有没有办法获取到上一个文件打开的进程  然后进行当前进程关闭  然后再打开下一个文件进程  注意不是把相同类型的文件全部进程关闭哈
比如打开了张三入党申请谈话通知书   在打开下一个word文件之前,先删除这个通知书word进程,然后再打开下一个张三入党申请谈话通知书用印word文件

--  作者:有点蓝
--  发布时间:2021/1/5 13:43:00
--  
Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    output.show(p.processName)
    If ("WINWORD" = p.ProcessName)
        msgbox(p.MainWindowTitle)
if p.MainWindowTitle = "xxx文件标题"
     p.kill
end if
    End If
Next

--  作者:李孝春
--  发布时间:2021/1/5 17:11:00
--  回复:(有点蓝)Dim ps As  System.Diagnostics...
有点蓝老师  不晓得是不是我电脑有问题 还是office 2007版本的问题  
楼上的代码 我试了几次都没有成功关闭进程对应的文件  继续求解啊

参照这个弄的pdf文件进程也没有搞定  (一样没有杀死进程)
Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    output.show(p.processName)
    If ("Adobe Reader(32位)" = p.ProcessName)
        If ("AcroRd32" = p.ProcessName)
            msgbox(p.MainWindowTitle)
            If p.MainWindowTitle = "123.pdf"
                p.kill
            End If
        End If
    Next

--  作者:有点蓝
--  发布时间:2021/1/5 17:14:00
--  
文件标题名称没有判断对

        msgbox(p.MainWindowTitle) ‘这里查看弹出的正确名称,然后放到下面xxx文件标题
if p.MainWindowTitle = "xxx文件标题"

--  作者:李孝春
--  发布时间:2021/1/5 21:38:00
--  回复:(有点蓝)文件标题名称没有判断对   ...
这个有个问题哦   如果文件名称是固定的比较好理解
但是我加了变量  vars(“姓名”)& “谈话通知书.doc”   用这个来动态判断名称  结果也不行
直接固化名称  123.doc  结果也不行   
还得麻烦老师继续指导下啦

--  作者:李孝春
--  发布时间:2021/1/5 21:48:00
--  回复:(有点蓝)文件标题名称没有判断对   ...
谢谢老师  我变通了一下   现在问题解决了