Changeset 407 for trunk/Include/Classes/System/IO/DirectoryInfo.ab

Timestamp:

Feb 17, 2008, 12:51:20 PM (17 years ago)

Author:

OverTaker

Message:

System/IO/Directory.ab実装。例外処理を徐々に実装。

File:

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

trunk/Include/Classes/System/IO/DirectoryInfo.ab

@@ -55 +55 @@
     */
     Sub Create()
-        CreateDirectory(ToTCStr(FullPath), NULL)
+        If CreateDirectory(ToTCStr(FullPath), NULL) = False Then
+            Dim error = GetLastError()
+            Select Case error
+                Case ERROR_ALREADY_EXISTS
+                    Throw New IOException("DirectoryInfo.CreateDirectory: The directory has already existed.")
+                Case Else
+                    Throw New IOException("DirectoryInfo.CreateDirectory: Failed to CreateDirectory")
+
+            End Select
+        End If
     End Sub
 
@@ -98 +107 @@
 
             If SHFileOperation(op) <> 0 Then
-                ' TODO: エラー処理
-                debug
+                Throw New IOException("DirectoryInfo.Delete: Failed to SHFileOperation.")
             End If
         Else
@@ -254 +262 @@
         find = FindFirstFile(ToTCStr(Path.Combine(FullPath, searchPattern)), findData)
         If find = INVALID_HANDLE_VALUE Then
-            Return New List<DirectoryInfo>
+            Throw New IOException("DirectoryInfo.GetFileSystemInfos: Failed to FindFirstFile.")
+            Return Nothing
         End If
 
@@ -274 +283 @@
             Return files
         Else
-            debug 'Exception
+            Throw New IOException("DirectoryInfo.GetFileSystemInfos: Failed to FindNextFile.")
             Return Nothing
         End If
@@ -287 +296 @@
     Sub MoveTo(destDirName As String)
         If MoveFile(ToTCStr(FullPath), ToTCStr(destDirName)) = FALSE Then
-            'Exception
+            Throw New IOException("DirectoryInfo.MoveTo: Failed to MoveFile.")
         End If
     End Sub