续上一节

创建一个空文件：

    Private Sub btnCreateFile_Click(sender As Object,e As EventArgs) Handles btnCreateFile.Click
        Dim fi As New FileInfo("d:\bak.jpg")
        If fi.Exists Then
            txtFileInfo.Text = "文件已经存在"
            Exit Sub
        End If
        fi.Create()
        txtFileInfo.Text = "文件已经创建"
    End Sub

删除文件：

    Private Sub btnDelFile_Click(sender As Object,e As EventArgs) Handles btnDelFile.Click
        Dim fi As New FileInfo("d:\bak.jpg")
        If fi.Exists Then
            Try
                fi.Delete()
                txtFileInfo.Text = "文件已经删除"
            Catch ex As Exception
                txtFileInfo.Text = "删除文件时发生错误，" & ex.Message
            End Try
        Else
            txtFileInfo.Text = "文件不存在"
        End If
    End Sub

移动文件：

    Private Sub btnMoveFile_Click(sender As Object,e As EventArgs) Handles btnMoveFile.Click
        Dim fi As New FileInfo("d:\bak.jpg")
        If fi.Exists Then
            Try
                fi.MoveTo("e:\cc.jpg")
                txtFileInfo.Text = "文件已经移动"
            Catch ex As Exception
                txtFileInfo.Text = "移动文件时发生错误，" & ex.Message
            End Try
        Else
            txtFileInfo.Text = "文件不存在"
        End If
    End Sub

和移动目录不同的是，可以将文件移动到别的磁盘分区。

设置文件属性：

    Private Sub btnAttr_Click(sender As Object,e As EventArgs) Handles btnAttr.Click
        Dim fi As New FileInfo("d:\bak.jpg")
        If fi.Exists = False Then Exit Sub

        Dim attr As Integer = fi.Attributes

        If (attr And FileAttribute.ReadOnly) = FileAttribute.ReadOnly Then
            If cbReadonly.Checked = False Then attr = attr Xor FileAttribute.ReadOnly
        Else
            If cbReadonly.Checked = True Then attr = attr Or FileAttribute.ReadOnly
        End If

        If (attr And FileAttribute.Hidden) = FileAttribute.Hidden Then
            If cbHidden.Checked = False Then attr = attr Xor FileAttribute.Hidden
        Else
            If cbHidden.Checked = True Then attr = attr Or FileAttribute.Hidden
        End If

        If (attr And FileAttribute.System) = FileAttribute.System Then
            If cbSys.Checked = False Then attr = attr Xor FileAttribute.System
        Else
            If cbSys.Checked = True Then attr = attr Or FileAttribute.System
        End If

        fi.Attributes = attr
    End Sub