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 教程 目录

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!