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

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

创建一个空文件：

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