删除文本文件
更新：2007 年 11 月
在本课中，您将学习如何使用 My.Computer.FileSystem 对象从文件夹中删除文件。
可以使用 My.Computer.FileSystem.DeleteFile 方法来删除文本文件。在任何情况下，都最好先询问用户是否确实要删除某一文件，然后再真正删除该文件。设想一下，假如您无意中单击了某个按钮，导致在未发出警告的情况下就自动删除了您需要的某个文件，那么会出现什么样的后果！ 将使用 MsgBoxResult 枚举来确定在要求用户确认删除时用户单击的是“是”还是“否”。
试一试！
删除文件
打开上一课中的图片查看器项目。如果您尚未完成上一课，请转到读取文本文件并完成该课，然后再继续。
在“解决方案资源管理器”中，单击“Form1.vb”，然后在“视图”菜单中单击“设计器”。
在此窗体中添加一个“Button”控件，并将该控件置于“Load Favorites”（加载收藏夹）按钮旁边。
更改此按钮的下列属性：
属性
值
Name
删除收藏夹
Text
删除收藏夹
Size
92, 23
双击这个新的“Button”控件以在代码编辑器中添加默认事件处理程序。
在 DeleteFavorites_Click 事件处理程序中，添加下面的代码。此代码通过进行检查来确保要删除的文件存在，然后显示一个消息框，以确认用户是否要删除该文件。如果用户单击“是”，则会清除图片框和列表框，然后从 Documents 文件夹中删除 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按 F5 运行代码。
单击“Delete Favorites”（删除收藏夹），然后在出现提示时单击“Yes”（是）。
通过单击“Load Favorites”（载入收藏夹）按钮，验证 FavoritePictures.txt 文件是否已从 Documents 文件夹中删除。
后续步骤
在这一组课程中，您学习了如何创建用于从 Pictures 目录中读取文件名并将相应图片显示在图片框中的图片查看器应用程序。您还学习了如何读取和写入文本文件以及如何删除文本文件。在后面的几节课中，您将学习类，它们是对象的蓝图，可以在程序中重复使用。
下一课：使用对象编程：使用类