source: Include/Classes/System/IO/DirectoryInfo.ab@ 129

Class DirectoryInfo
    Inherits FileSystemInfo
Public
    Sub DirectoryInfo(path As String)
        OriginalPath = path
        FullPath = Path.GetFullPath(path)
        Refresh()
    End Sub

    Sub ~DirectoryInfo()
    End Sub

    'Public Property
    Function Parent() As DirectoryInfo
        Dim dirInfo As DirectoryInfo(Path.GetDirectoryName(FullPath))
        Return dirInfo
    End Function

    Function Root() As DirectoryInfo
        Dim dirInfo as DirectoryInfo(Path.GetPathRoot(FullPath))
        Return dirInfo
    End Function

    'Public Method
    Sub Create()
        CreateDirectory(FullPath, NULL)
    End Sub

/*  Sub Create(directorySecurity As DirectorySecurity)
    End Sub*/

    Override Sub Delete()
        RemoveDirectory(FullPath)
    End Sub

/*  Override Sub Delete(recursive As Boolean)
    End Sub*/

/*  Function GetAccessControl() As DirectorySecurity
    End Function*/

/*  Function GetAccessControl(includeSections As AccessControlSections) As DirectorySecurity
    End Function*/

/*  Function GetDirectories() As Array
    End Function*/

/*  Function GetDirectories(searchPattern As String) As Array
    End Function*/

/*  Function GetDirectories(searchPattern As String, searchOption As SearchOption) As Array
    End Function*/

/*  Function GetFiles() As Array
    End Function*/
    
/*  Function GetFiles(searchPattern As String) As Array
    End Function*/
    
/*  Function GetFiles(searchPattern As String, searchOption As SearchOption) As Array
    End Function*/

/*  Function GetFileSystemInfos() As Array
    End Function*/

/*  Function GetFileSystemInfos(searchPattern As String) As Array
    End Function*/

    Sub MoveTo(destDirName As String)
        If MoveFile(FullPath, destDirName) = False Then
            'Exception
        End If
    End Sub

/*  Sub SetAccessControl(directorySecurity As DirectorySecurity)
    End Sub*/

End Class

Enum SearchOption
    AllDirectories
    TopDirectoryOnly
End Enum