使用完整路径

Question

终止应用程序，我要终止使用通过vb.net完整的文件路径的应用程序，所以我用这个代码片断

Public Sub forceCopy() 
     Try 
      'Dim strDatabasePath As String = My.Computer.FileSystem.CombinePath(Application.UserAppDataPath, "LIC.mdf") 
      'Dim strdbLogPath As String = My.Computer.FileSystem.CombinePath(Application.UserAppDataPath, "LIC_log.ldf") 
      Dim strDatabasePath As String = My.Computer.FileSystem.CombinePath(My.Application.Info.DirectoryPath, "LIC.mdf") 
      Dim strdbLogPath As String = My.Computer.FileSystem.CombinePath(My.Application.Info.DirectoryPath, "LIC_log.ldf") 
      Dim path As String = My.Computer.FileSystem.CombinePath(My.Application.Info.DirectoryPath, "LIC.mdf") 
      Dim matchingProcesses = New List(Of Process) 

      For Each process As Process In process.GetProcesses() 
       For Each m As ProcessModule In process.Modules 
        If String.Compare(m.FileName, path, StringComparison.InvariantCultureIgnoreCase) = 0 Then 
         matchingProcesses.Add(process) 
         Exit For 
        End If 
       Next 
      Next 

      For Each p As Process In matchingProcesses 
       p.Kill() 
      Next 
      My.Computer.FileSystem.CopyFile(strDatabasePath, "c:\backup\LIC.mdf", True) 

      My.Computer.FileSystem.CopyFile(strdbLogPath, "c:\backup\LIC_log.ldf", True) 

      MessageBox.Show("Backup taken successfully") 
     Catch ex As Exception 
      MsgBox(ex.Message) 
     End Try 


    End Sub 

我得到一个异常“访问被拒绝”。任何想法为什么？编辑：我得到在这一行的错误：For Each m As ProcessModule In process.Modules

Answer 1

您需要用Try/Catch包装If String.Compare(m.FileName, ...)块。有几个虚拟和特权进程的FileName属性不能访问。

这样杀死SQL Server是一个非常糟糕的想法。用ServiceController类很好地问。您需要UAC elevation才能这样做。

Answer 2

只有提升的进程可以枚举加载你不拥有的进程模块。