Imports System Imports System.IO Public Class CreateSubTest Public Shared Sub Main() Dim di As New DirectoryInfo("TempDir") If di.Exists = False Then di.Create() End If Dim dis As DirectoryInfo = di.CreateSubdirectory("SubDir") dis.Delete(True) di.Delete(True) End Sub 'Main End Class 'CreateSubTest