テキストファイルの削除

2008-09-30

更新 : 2007 年 11 月

このレッスンでは、My.Computer.FileSystem オブジェクトを使用して、フォルダからファイルを削除する方法について説明します。

テキストファイルを削除するには、My.Computer.FileSystem.DeleteFile メソッドを使用します。ファイルを実際に削除する前に、本当に削除してよいかどうかを必ずユーザーに確認することをお勧めします。これは、誤ってボタンをクリックしたときに、必要なファイルが警告なく自動的に削除されるのを避けるためです。削除の確認に対してユーザーが [はい] と [いいえ] のどちらをクリックしたかを判断するには、MsgBoxResult 列挙型を使用します。

やってみよう

ファイルを削除するには

前のレッスンで作成した Picture Viewer プロジェクトを開きます。このプロジェクトをまだ作成していない場合は、「テキストファイルの読み取り」に戻ってレッスンを完了してから続行してください。
ソリューションエクスプローラで Form1.vb をクリックし、[表示] メニューの [デザイナ] をクリックします。
フォームに Button コントロールを追加し、[Load Favorites] ボタンの横に配置します。
このボタンの次のプロパティを変更します。

プロパティ

値

Name

DeleteFavorites

Text

Delete Favorites

Size

92, 23
新しい Button コントロールをダブルクリックして、コードエディタで既定のイベントハンドラを追加します。

プロパティ	値
Name	DeleteFavorites
Text	Delete Favorites
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

F5 キーを押してコードを実行します。
[Delete Favorites] をクリックし、確認メッセージが表示されたら [はい] をクリックします。
[Load Favorites] をクリックして、ドキュメントフォルダから FavoritePictures.txt ファイルが削除されていることを確認します。

次の手順

この一連のレッスンでは、ピクチャディレクトリからファイル名を読み取り、対応するピクチャをピクチャボックスに表示できるピクチャビューアアプリケーションを作成する方法を説明しました。テキストファイルの読み取りおよび書き込みを行う方法と、テキストファイルを削除する方法についても説明しました。次からのレッスンでは、プログラムで再利用可能なオブジェクトの設計図であるクラスについて説明します。

次のレッスン : 「オブジェクトによるプログラミング : クラスを使用する」