四时宝库

创建文件夹目录： Directory.CreateDirectory("c:\testdir") 创建c:\testdir

判断文件夹目录是否存在：Directory.Exists("c:\testdir") 返回True表示存在

移动文件夹目录：Directory.Move("c:\testdir1\testdir2", "c:\testdir") 将c:\testdir1\testdir2移动到c:\testdir

删除文件夹目录：Directory.Delete("c:\testdir1") 删除c:\testdir1文件夹

mports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,_ 
	ByVal e As System.EventArgs) Handles Button1.Click
        If Directory.Exists("c:\testDir1") Then
            '提示 testdir1 文件夹目录是否存在
            MsgBox("文件夹 'testDir' 存在 ")
        Else
            '创建文件夹目录testDir1
            Directory.CreateDirectory("c:\testDir1")
            MsgBox("目录创建成功 ! ")
            '创建文件夹testDir2
            Directory.CreateDirectory("c:\testDir1\testDir2")
            MsgBox("testDir2创建成功 ! ")
            '移动C盘里面目录 testDir2 到 目录testDir:            Directory.Move("c:\testDir1\testDir2", "c:\testDir")
            MsgBox("testDir2 移动了 ")
            '删除文件夹 目录testDir1
            Directory.Delete("c:\testDir1")
            MsgBox("testDir1 删除了 ")
        End If
    End Sub
End Class