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