vb.net 教程 4-3 文件操作 FileInfo 2

续上一节

创建一个空文件：

    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