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(ToTCStr(FullPath), NULL)
	End Sub

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

	Override Sub Delete()
		RemoveDirectory(ToTCStr(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(ToTCStr(FullPath), ToTCStr(destDirName)) = FALSE Then
			'Exception
		End If
	End Sub

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

End Class

Enum SearchOption
	AllDirectories
	TopDirectoryOnly
End Enum