Changeset 271 for Include/Classes/System/IO/DirectoryInfo.ab

Timestamp:

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

Author:

dai

Message:

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

File:

• Include/Classes/System/IO/DirectoryInfo.ab (modified) (3 diffs)

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