VB.net设计窗口管理D盘文件

@御灵轩
用System.IO提供的File类实现文件的创建与删除，Directory类实现文件夹的创建与删除。

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadFile()
    End Sub

    Private Sub DirCreate_Click(sender As Object, e As EventArgs) Handles DirCreate.Click
        Directory.CreateDirectory("D:\" & TextBox1.Text)
        LoadFile()
    End Sub
    Private Sub DirDelete_Click(sender As Object, e As EventArgs) Handles DirDelete.Click
        Directory.Delete(ListBox1.SelectedItem.ToString())
        LoadFile()
    End Sub
    Private Sub FileDelet_Click(sender As Object, e As EventArgs) Handles FileDelete.Click
        File.Delete(ListBox2.SelectedItem.ToString())
        LoadFile()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        MyBase.Dispose()
    End Sub

    Private Sub LoadFile()
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        Dim a() As String = IO.Directory.GetFiles("D:\")
        For Each str As String In a
            ListBox2.Items.Add(str)
        Next
        Dim b() As String = IO.Directory.GetDirectories("D:\")
        For Each str As String In b
            ListBox1.Items.Add(str)
        Next
    End Sub
End Class