Index: Include/Classes/System/IO/DirectoryInfo.ab
===================================================================
--- Include/Classes/System/IO/DirectoryInfo.ab	(revision 262)
+++ Include/Classes/System/IO/DirectoryInfo.ab	(revision 271)
@@ -1,2 +1,6 @@
+
+Namespace System
+Namespace IO
+
 Class DirectoryInfo
 	Inherits FileSystemInfo
@@ -34,6 +38,34 @@
 	End Sub
 
-/*	Override Sub Delete(recursive As Boolean)
-	End Sub*/
+	Sub Delete(recursive As Boolean)
+		If recursive Then
+			' ディレクトリ内のすべての情報を削除する
+
+			Dim dirPath = FullPath As String
+
+			' 終端の '\' を除去
+			If dirPath[dirPath.Length-1] = Asc("\\") Then
+				dirPath = dirPath.SubString(0, dirPath.Length-1)
+			End If
+
+			' double null-terminated にする
+			dirPath = dirPath + Chr$(0)
+
+			Dim op As SHFILEOPSTRUCT
+			op.hwnd = NULL
+			op.wFunc = FO_DELETE
+			op.pFrom = dirPath.Chars
+			op.pTo = NULL
+			op.fFlags = FOF_NOCONFIRMATION or FOF_NOERRORUI or FOF_SILENT
+
+			If SHFileOperation(op) <> 0 Then
+				' TODO: エラー処理
+				debug
+			End If
+		Else
+			' ディレクトリが空の場合は削除する
+			This.Delete()
+		End If
+	End Sub
 
 /*	Function GetAccessControl() As DirectorySecurity
@@ -82,2 +114,5 @@
 	TopDirectoryOnly
 End Enum
+
+End Namespace
+End Namespace
Index: Include/Classes/System/IO/DriveInfo.ab
===================================================================
--- Include/Classes/System/IO/DriveInfo.ab	(revision 262)
+++ Include/Classes/System/IO/DriveInfo.ab	(revision 271)
@@ -1,2 +1,6 @@
+Namespace System
+Namespace IO
+
+
 Enum DriveType
 	Unknown = 0
@@ -89,2 +93,6 @@
 	End Function
 End Class
+
+
+End Namespace
+End Namespace
Index: Include/Classes/System/IO/File.ab
===================================================================
--- Include/Classes/System/IO/File.ab	(revision 262)
+++ Include/Classes/System/IO/File.ab	(revision 271)
@@ -1,2 +1,5 @@
+Namespace System
+Namespace IO
+
 
 Enum FileAccess
@@ -244,2 +247,6 @@
 
 End Class
+
+
+End Namespace
+End Namespace
Index: Include/Classes/System/IO/FileInfo.ab
===================================================================
--- Include/Classes/System/IO/FileInfo.ab	(revision 262)
+++ Include/Classes/System/IO/FileInfo.ab	(revision 271)
@@ -1,3 +1,10 @@
+Namespace System
+Namespace IO
+
 
 Class FileInfo
 End Class
+
+
+End Namespace
+End Namespace
Index: Include/Classes/System/IO/FileStream.ab
===================================================================
--- Include/Classes/System/IO/FileStream.ab	(revision 262)
+++ Include/Classes/System/IO/FileStream.ab	(revision 271)
@@ -1,2 +1,5 @@
+Namespace System
+Namespace IO
+
 
 /* ほんとはmiscに入れるかかファイルを分けたほうがいいかもしれないが一先ず実装 */
@@ -366,2 +369,6 @@
 	MemberwiseClone*/
 End Class
+
+
+End Namespace
+End Namespace
Index: Include/Classes/System/IO/FileSystemInfo.ab
===================================================================
--- Include/Classes/System/IO/FileSystemInfo.ab	(revision 262)
+++ Include/Classes/System/IO/FileSystemInfo.ab	(revision 271)
@@ -1,2 +1,6 @@
+Namespace System
+Namespace IO
+
+
 Class FileSystemInfo
 	m_CreationTime As FILETIME
@@ -193,2 +197,6 @@
 	End Function
 End Class
+
+
+End Namespace
+End Namespace
Index: Include/Classes/System/IO/Path.ab
===================================================================
--- Include/Classes/System/IO/Path.ab	(revision 262)
+++ Include/Classes/System/IO/Path.ab	(revision 271)
@@ -2,4 +2,9 @@
 
 #require <Classes/System/Environment.ab>
+
+
+Namespace System
+Namespace IO
+
 
 Class Path
@@ -150,2 +155,6 @@
 	Return GetTempFileName(pPathName, pPrefixString, uUnique, pTempFileName)
 End Function
+
+
+End Namespace
+End Namespace
Index: Include/Classes/System/IO/Stream.ab
===================================================================
--- Include/Classes/System/IO/Stream.ab	(revision 262)
+++ Include/Classes/System/IO/Stream.ab	(revision 271)
@@ -1,2 +1,5 @@
+Namespace System
+Namespace IO
+
 
 Class Stream
@@ -65,2 +68,6 @@
 	Virtual Function CreateWaitHandle() As System.Threading.WaitHandle:	End Function
 End Class
+
+
+End Namespace
+End Namespace
Index: Include/Classes/System/IO/StreamReader.ab
===================================================================
--- Include/Classes/System/IO/StreamReader.ab	(revision 262)
+++ Include/Classes/System/IO/StreamReader.ab	(revision 271)
@@ -1,3 +1,11 @@
+Namespace System
+Namespace IO
+
+
 Class StreamReader
 	' TODO: 実装
 End Class
+
+
+End Namespace
+End Namespace
Index: Include/Classes/System/IO/StreamWriter.ab
===================================================================
--- Include/Classes/System/IO/StreamWriter.ab	(revision 262)
+++ Include/Classes/System/IO/StreamWriter.ab	(revision 271)
@@ -1,3 +1,11 @@
+Namespace System
+Namespace IO
+	
+	
 Class StreamWriter
 	' TODO: 実装
 End Class
+
+
+End Namespace
+End Namespace
Index: Include/Classes/System/IO/index.ab
===================================================================
--- Include/Classes/System/IO/index.ab	(revision 262)
+++ Include/Classes/System/IO/index.ab	(revision 271)
@@ -1,5 +1,2 @@
-'#require "Directory.ab"
-'#require "DirectoryInfo.ab"
-
 #require "misc.ab"
 #require "DirectoryInfo.ab"