読み取り専用のファイルを削除する

カテゴリ: VB.NET
投稿日時:2009/02/03 11:09:29
読み取り専用のファイルを削除しようとすると、アクセス拒否のエラーが出てしまうので、
読み取り専用を外してから削除します。
Imports System.IO

Public Class FileSystemForm

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '読み取り専用のファイルを削除する
        Dim fl As New FileInfo("c:\test\test.txt")
        If (fl.Attributes And FileAttributes.ReadOnly) = FileAttributes.ReadOnly Then
            '読取専用を外す
            fl.Attributes = FileAttributes.Normal
        End If
        'ファイルを削除する
        fl.Delete()

    End Sub
End Class
このエントリーをはてなブックマークに追加


スポンサード リンク