刪除文字檔

發行項
08/21/2008

更新：2007 年 11 月

在本課程中，您將學習如何使用 My.Computer.FileSystem 物件，刪除資料夾中的檔案。

您可以使用 My.Computer.FileSystem.DeleteFile 方法刪除文字檔。建議您在刪除檔案前，先詢問使用者是否確定要刪除檔案。設想，如果您不小心按到一個按鈕會自動刪除您需要的檔案卻沒有警告，會是什麼樣的情形！您要使用 MsgBoxResult 列舉型別判斷，當詢問使用者確認刪除時，使用者按的是 [是] 或 [否]。

試試看！

若要刪除檔案

開啟上一課的「圖片檢視器」專案。如果您尚未完成該課程，請至從文字檔讀取，並完成該課程再繼續進行。
按一下 [方案總管] 中的 [Form1.vb]，然後按一下 [檢視] 功能表中的 [設計工具]。
將 [Button] 控制項加入至表單，並放在 [載入我的最愛] 按鈕旁。
變更此按鈕的下列屬性：

屬性

值

Name

DeleteFavorites

Text

刪除我的最愛

Size

92, 23
按兩下新的 [Button] 控制項，在 [程式碼編輯器] 中加入預設事件處理常式。

屬性	值
Name	DeleteFavorites
Text	刪除我的最愛
Size	92, 23

在 DeleteFavorites_Click 事件處理常式中，加入下列程式碼：這個程式碼會檢查以確定要刪除的檔案存在，然後顯示訊息方塊以確認使用者要刪除檔案。如果使用者按一下 [是]，就會清除圖片方塊和清單方塊，然後 FavoritePictures 文字檔案就會從 [文件] 資料夾中刪除。

' Check that the favorites text file exists.
If My.Computer.FileSystem.FileExists(FavoritePictures) Then

    ' Ensure that user wants to delete the favorites text file.
    If MsgBox("Are you sure you want to send the favorites" _
        & " file to the Recycle Bin?", MsgBoxStyle.YesNo, _
        "Delete Favorite Pictures") = MsgBoxResult.Yes Then

        ' Clear the picture box and the list box.
        Me.ListBox1.Items.Clear()
        Me.PictureBox1.ImageLocation = ""

        ' Delete the favorites file.
        My.Computer.FileSystem.DeleteFile(FavoritePictures)

    End If
Else
    MsgBox("The favorites file does not exist.")
End If