版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

续上一节

 

 

 

创建一个空文件：

 

    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

 

 

 

 

 

 

 

 

 

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/74931455