Index: Include/Classes/System/IO/DirectoryInfo.ab
===================================================================
--- Include/Classes/System/IO/DirectoryInfo.ab	(revision 129)
+++ Include/Classes/System/IO/DirectoryInfo.ab	(revision 129)
@@ -0,0 +1,83 @@
+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
Index: Include/Classes/System/IO/index.ab
===================================================================
--- Include/Classes/System/IO/index.ab	(revision 128)
+++ Include/Classes/System/IO/index.ab	(revision 129)
@@ -3,4 +3,5 @@
 
 #require "misc.ab"
+#require "DirectoryInfo.ab"
 #require "DriveInfo.ab"
 #require "File.ab"