Question

vb.net 创建文件夹和删除文件夹

imports scripting
dim fsotest as new filesystemobject
上面代码书上看到可是老是打进去老是错误
高手些个完整的代码给我看看最好有注释
会的帮帮忙小弟谢谢了

Answer 1

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click
Try
' 先建立目录以便用于后续的删除示范。
If Not Directory.Exists("D:\网易") Then
Directory.CreateDirectory(" D:\网易 \Test1")
Directory.CreateDirectory(" D:\网易 \Test2")
Directory.CreateDirectory(" D:\网易 \Test3")
End If
' 删除子目录 Test1。
Directory.Delete(" D:\网易 \Test1", True)
' 删除子目录 Test2。
Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")
myDirectoryInfo.Delete(True)
' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。
Directory.Delete(" D:\网易 ", True)
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
' 启动 Windows 资源管理器。
Process.Start("explorer.exe", "D:\")
End Sub

Answer 2

这个简单.
创建文件夹:
My.Computer.FileSystem.CreateDirectory("D:\1")
删除文件夹:
Try
My.Computer.FileSystem.DeleteDirectory("D:\1", FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try