Changeset 271 for Include/Classes/System/IO

Timestamp:

Jun 12, 2007, 6:15:09 PM (17 years ago)

Author:

dai

Message:

SHFILEOPSTRUCT.hWnd → SHFILEOPSTRUCT.hwnd
System.IOに属するクラスに名前空間を適用した。

Location:

Include/Classes/System/IO

Files:

• DirectoryInfo.ab (modified) (3 diffs)
• DriveInfo.ab (modified) (2 diffs)
• File.ab (modified) (2 diffs)
• FileInfo.ab (modified) (1 diff)
• FileStream.ab (modified) (2 diffs)
• FileSystemInfo.ab (modified) (2 diffs)
• Path.ab (modified) (2 diffs)
• Stream.ab (modified) (2 diffs)
• StreamReader.ab (modified) (1 diff)
• StreamWriter.ab (modified) (1 diff)
• index.ab (modified) (1 diff)

Include/Classes/System/IO/DirectoryInfo.ab

@@ +1 @@
+
+Namespace System
+Namespace IO
+
 Class DirectoryInfo
     Inherits FileSystemInfo
@@ -34 +38 @@
     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 +114 @@
     TopDirectoryOnly
 End Enum
+
+End Namespace
+End Namespace

Include/Classes/System/IO/DriveInfo.ab

@@ +1 @@
+Namespace System
+Namespace IO
+
+
 Enum DriveType
     Unknown = 0
@@ -89 +93 @@
     End Function
 End Class
+
+
+End Namespace
+End Namespace

Include/Classes/System/IO/File.ab

@@ +1 @@
+Namespace System
+Namespace IO
+
 
 Enum FileAccess
@@ -244 +247 @@
 
 End Class
+
+
+End Namespace
+End Namespace

Include/Classes/System/IO/FileInfo.ab

@@ +1 @@
+Namespace System
+Namespace IO
+
 
 Class FileInfo
 End Class
+
+
+End Namespace
+End Namespace

Include/Classes/System/IO/FileStream.ab

@@ +1 @@
+Namespace System
+Namespace IO
+
 
 /* ほんとはmiscに入れるかかファイルを分けたほうがいいかもしれないが一先ず実装 */
@@ -366 +369 @@
     MemberwiseClone*/
 End Class
+
+
+End Namespace
+End Namespace

Include/Classes/System/IO/FileSystemInfo.ab

@@ +1 @@
+Namespace System
+Namespace IO
+
+
 Class FileSystemInfo
     m_CreationTime As FILETIME
@@ -193 +197 @@
     End Function
 End Class
+
+
+End Namespace
+End Namespace

Include/Classes/System/IO/Path.ab

@@ -2 +2 @@
 
 #require <Classes/System/Environment.ab>
+
+
+Namespace System
+Namespace IO
+
 
 Class Path
@@ -150 +155 @@
     Return GetTempFileName(pPathName, pPrefixString, uUnique, pTempFileName)
 End Function
+
+
+End Namespace
+End Namespace

Include/Classes/System/IO/Stream.ab

@@ +1 @@
+Namespace System
+Namespace IO
+
 
 Class Stream
@@ -65 +68 @@
     Virtual Function CreateWaitHandle() As System.Threading.WaitHandle: End Function
 End Class
+
+
+End Namespace
+End Namespace

Include/Classes/System/IO/StreamReader.ab

@@ +1 @@
+Namespace System
+Namespace IO
+
+
 Class StreamReader
     ' TODO: 実装
 End Class
+
+
+End Namespace
+End Namespace

Include/Classes/System/IO/StreamWriter.ab

@@ +1 @@
+Namespace System
+Namespace IO
+    
+    
 Class StreamWriter
     ' TODO: 実装
 End Class
+
+
+End Namespace
+End Namespace

Include/Classes/System/IO/index.ab

@@ -1 @@
-'#require "Directory.ab"
-'#require "DirectoryInfo.ab"
-
 #require "misc.ab"
 #require "DirectoryInfo.ab"