Imports 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
            'shows message if testdir1 exist
            MsgBox("Directory 'testDir' Exist ")
        Else
            'create the directory testDir1
            Directory.CreateDirectory("c:\testDir1")
            MsgBox("testDir1 created ! ")
            'create the directory testDir2
            Directory.CreateDirectory("c:\testDir1\testDir2")
            MsgBox("testDir2 created ! ")
            'move the directory testDir2 as testDir in c:            Directory.Move("c:\testDir1\testDir2", "c:\testDir")
            MsgBox("testDir2 moved ")
            'delete the directory testDir1
            Directory.Delete("c:\testDir1")
            MsgBox("testDir1 deleted ")
        End If
    End Sub
End Class