主题：如何关闭一个文件

很明显,问题出在加密解密上,你却浪费大量的时间,让大家跟着你跑无意义的路.

所以说,提问一定要说清楚情况,不要主观的认为问题是在你所想这里,就把其他相关信息省略了,这样别人也一头雾水,你的问题也无从解决.时间白白浪费

你说问题在加解密上，我倒想问问，怎么出在加解密上了，请给个理由先，我这个原来就没有加解密，问题也一样，加解密是昨天才加上去的，就算是加解密上，请问解决问题的方法在那里

 测试了一下，没办法，进程没有被关闭，需要这样处理一下

 

 

If  (lowerJiemiHouAddress.EndsWith(".xls") OrElse lowerJiemiHouAddress.EndsWith("xlsx") OrElse lowerJiemiHouAddress.EndsWith("csv") OrElse lowerJiemiHouAddress.EndsWith("doc") OrElse lowerJiemiHouAddress.EndsWith("docx")) _
    AndAlso oDocument IsNot Nothing Then
    msgbox(999)
   
   
    Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
    For Each p As System.Diagnostics.Process In ps
        If p.MainWindowTitle = Nothing  Then
            p.kill
        End If
    Next
   
   
End If

请问这样会不会把 用户自己打开的excel 也会关闭掉？  另外就是这个 程序运行的时候，的确会导致excel进程无响应，程序也跟着无响应，必须手工从进程管理器上把excel关闭才行，是不是也是这个原因导致的？

采用你的方法，刚才又试了一下，发现，无论doc还是excel，都存在这样的问题，而且采用你的方法以后，部分文档可以删除，部分还是不行？ 我这里有17个文档，有9个不能删除，8个可以删除，要不要把这17个文档给你，再找找原因？

 If p.MainWindowTitle = Nothing    判断了窗口标题为空才杀进程,一般来说  打开的Excel文档肯定有窗口标题

 Doc文档，就判断进程名 winWord

foxtable有获得进程PID的方法吗？

14楼 p.id 就OK了.