Example - RmDir Statement

1. ' This sample shows the functions mkdir (Make Directory)

   ' and rmdir (Remove Directory)

   Sub Main

   1. Dim dirName As String

      dirName = "t1"

      mkdir dirName

      mkdir "t2"

      MsgBox "Directories: t1 and t2 created. Press OK to remove them"

      rmdir "t1"

      rmdir "t2"

   End Sub