版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
上一节讲到了使用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
