VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • vb.net 教程 4-2 目录操作 DirectoryInfo 2

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
上一节讲到了使用DirectoryInfo属性获取目录信息，本节讲一下有关DirectoryInfo的几个重要方法：创建、删除、移动
 
 
 
创建目录使用的是 Create() 方法，主要代码如下：
 
    Private Sub btnCreateFolder_Click(sender As Object, e As EventArgs) Handles btnCreateFolder.Click
        Dim di As New DirectoryInfo("d:\aa")
        If di.Exists Then
            txtFolderInfo.Text = "文件夹已经存在"
            Exit Sub
        End If
        di.Create()
        txtFolderInfo.Text = "文件夹已经创建"
    End Sub
其中判断了目录是否已经存在，如果已经存在那么退出。
 
 
 
删除目录使用的是 Delete()方法，主要代码如下：
 
    Private Sub btnDelFolder_Click(sender As Object, e As EventArgs) Handles btnDelFolder.Click
        Dim di As New DirectoryInfo("d:\aa")
        If di.Exists Then
            Try
                di.Delete()
                txtFolderInfo.Text = "文件夹已经删除"
            Catch ex As Exception
                txtFolderInfo.Text = "删除文件夹时发生错误，" & ex.Message
            End Try
        Else
            txtFolderInfo.Text = "文件夹不存在"
        End If
    End Sub
 
实际上这个代码存在一些问题，如果需要删除的目录中包含子目录或者文件，那么会产生错误。
 
可以使用重载的Delete()方法完成对包含有子目录或者文件的目录的删除：
 
    Private Sub btnDelFolder2_Click(sender As Object, e As EventArgs) Handles btnDelFolder2.Click
        Dim di As New DirectoryInfo("d:\aa")
        If di.Exists Then
            Try
                di.Delete(True)
                txtFolderInfo.Text = "文件夹已经删除"
            Catch ex As Exception
                txtFolderInfo.Text = "删除文件夹时发生错误，" & ex.Message
            End Try
        Else
            txtFolderInfo.Text = "文件夹不存在"
        End If
    End Sub
 
代码中，di.Delete(True)，参数True指明了要删除该目录中的子目录和文件。
 
 
 
移动目录使用的是 MoveTo()方法，主要代码如下：
 
    Private Sub btnMoveFolder_Click(sender As Object, e As EventArgs) Handles btnMoveFolder.Click
        Dim di As New DirectoryInfo("d:\aa")
        If di.Exists Then
            Try
                di.MoveTo("d:\dd")
                txtFolderInfo.Text = "文件夹已经移动完毕"
            Catch ex As Exception
                txtFolderInfo.Text = "移动文件夹时发生错误，" & ex.Message
            End Try
        Else
            txtFolderInfo.Text = "文件夹不存在"
        End If
    End Sub
 
需要注意的是，该方法不支持跨磁盘分区移动，修改代码
 
di.MoveTo("d:\dd")
 
为
 
di.MoveTo("c:\dd")
 
会产生错误：
 
 
 
 
 
学习更多vb.net知识，请参看 vb.net 教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/uruseibest/article/details/74923460

相关教程