使用VB.NET在Windows 7中刪除文件

Question

我已經在vb.net中編寫了以下代碼來刪除文件。

If File.Exists(strPath & "\ReportEng.ini") = True Then
File.SetAttributes(strPath & "\ReportEng.ini", FileAttributes.Normal)
File.Delete(strPath & "\ReportEng.ini")
End If
File.Copy("\\192.168.0.1\SAP_Shared\AddonExtra\ReportEng.ini", strPath & "\ReportEng.ini")

此代碼在Windows XP中完美運行。 但是在Windows 7中，我無法刪除它。 從開發人員的角度來看，該OS是繁忙的OS。 發生某些或其他問題，Microsoft在構建此OS時未考慮開發人員。

如何在Windows 7中刪除文件？

Answer 1

這樣做很容易；

If My.Computer.FileSystem.FileExists("C:\somefile.ext") Then 'Check whether file exists
        My.Computer.FileSystem.DeleteFile("C:\somefile.ext") 'Delete the file!
End If

祝你今天愉快！

Answer 2

您不需要刪除文件：有一個允許覆蓋的重載File.Copy方法（字符串，字符串，布爾值） 。

您沒有說您遇到什么錯誤。 我懷疑這是因為用戶沒有對該目錄的寫權限。 您可能應該使用Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)或.LocalApplicationData返回的目錄的子目錄，並且絕對不要使用包含該程序的目錄。

另外，使用Path.Combine(strPath, "ReportEng.ini")意味着您將合並路徑-它會為您處理例如尾隨路徑分隔符。

Answer 3

與Windows文件系統交互的首選方法使用以下名稱空間：

Imports Microsoft.VisualBasic.FileIO.FileSystem

刪除文件：

Dim FileLocation As String = strPath & "\ReportEng.ini"
If Not GetDirectoryInfo(FileLocation).Exists Then
  GetFileInfo(FileLocation).Delete()
End If