vb.net 教程 4-5 文件操作 File 2

ゝ一纸荒年。 2022-09-10 09:26 96阅读 0赞

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

创建一个空文件：

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教程][vb.net] 目录  
————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/