继续上一节的学习。
Private Sub btnCreateFile_Click(sender As Object,e As EventArgs) Handles btnCreateFile.Click If File.Exists("d:\bb.jpg") Then txtFileInfo.Text = "该文件已经存在" Else File.Create("d:\bb.jpg") txtFileInfo.Text = "创建文件成功" End If End Sub
Private Sub btnDelFile_Click(sender As Object,e As EventArgs) Handles btnDelFile.Click If File.Exists("d:\bb.jpg") Then Try File.Delete("d:\bb.jpg") 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 If File.Exists("d:\bb.jpg") Then Try File.Move("d:\bb.jpg","e:\bb.jpg") txtFileInfo.Text = "文件已经移动" Catch ex As Exception txtFileInfo.Text = "移动文件时发生错误," & ex.Message End Try Else txtFileInfo.Text = "文件不存在" End If End Sub
学习更多vb.net知识,请参看 vb.net 教程 目录
原文地址:https://www.jb51.cc/vb/256543.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。