寫入至文字檔

發行項
08/21/2008

更新：2007 年 11 月

在本課程中，您將學習如何使用 My.Computer.FileSystem 物件，在 Visual Basic 中將字串寫入文字檔。

上一個課程 (擷取資料夾中檔案的名稱) 說明如何建立「圖片檢視器」應用程式，將資料夾中的圖片顯示在圖片方塊中。下一步就是將您最愛的圖片名稱儲存成文字檔。

檔案基本概念

在您寫入至文字檔前，有些事件您必須知道。Visual Basic 中的 My 物件可讓您輕鬆使用檔案。您可以使用 My.Computer.FileSystem 物件，寫入至電腦中的檔案。

您可以使用 My.Computer.FileSystem.WriteAllText 方法，將字串寫入至文字檔。如果檔案不存在，這個方法就會為您建立檔案。您可以傳遞 True 做為 append 參數，以指出您要將文字加入至檔案，而不是覆寫現有的文字。

注意事項：
在 Windows XP 中，有些特殊的資料夾名為 [我的文件]、[我的圖片] 和 [我的音樂]。在 Windows Vista 中，這些資料夾的名稱中都沒有「我的」兩字，名稱只有「文件」、「圖片」和「音樂」而已。您要在本課程中使用這些資料夾。不過，本課中的程式碼將在 Windows XP 和 Windows Vista 中執行。

試試看！

若要將文字附加至文字檔

開啟上一課的「圖片檢視器」專案。如果您尚未完成該課程，請至擷取資料夾中檔案的名稱，並完成該課程再繼續進行。
在 [方案總管] 中，選取 [Form1.vb]，然後按一下 [檢視] 功能表中的 [設計工具]。
將 [按鈕] 控制項加入至表單位於 [載入圖片] 按鈕的旁邊，並命名為 FavoritesAdd。
變更此按鈕的下列屬性：

屬性

值

Text

加到我的最愛

Size

92, 23

屬性	值
Text	加到我的最愛
Size	92, 23

按兩下 [加到我的最愛] 按鈕，並將下列程式碼加入 FavoritesAdd_Click 事件處理常式。這個程式碼會將清單方塊中選取的文字加入至 FavoritePictures.txt 檔案中。

If PictureBox1.ImageLocation <> "" Then

    ' Add the selected picture to the favorites text file.
    My.Computer.FileSystem.WriteAllText(FavoritePictures, _
        Me.ListBox1.SelectedItem & ",", True)

End If

將下列程式碼加在 FavoritesAdd_Click 事件處理常式的上面。這個程式碼會定義 FavoritePictures 變數的路徑和檔名。
```
Dim FavoritePictures As String = _
    My.Computer.FileSystem.SpecialDirectories.MyDocuments _
    & "\FavoritePictures.txt"
```
按 F5 執行程式碼。
按一下 [載入圖片]，然後按一下清單中您最愛的圖片。
按一下 [加到我的最愛]。
開啟 [文件] 資料夾中的 FavoritePictures.txt 檔案，以確認圖片的名稱已附加至檔案。