使用完整路徑

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

只有提升的進程可以枚舉加載你不擁有的進程模塊。