Changeset 407 for trunk/Include/Classes/System/IO/FileSystemInfo.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/FileSystemInfo.ab (modified) (3 diffs)

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

@@ -245 +245 @@
     Virtual Sub Delete()
         If DeleteFile(ToTCStr(FullPath)) = FALSE Then
-            Throw 'Exception
+            Throw New IOException("DriveInfo.Delete: Failed to DeleteFile.")
         End If
     End Sub
@@ -258 +258 @@
         FindClose(hFind)
 
-        m_FileAttributes = New FileAttributes(data.dwFileAttributes As Long, "FileAttributes")
-        m_CreationTime = data.ftCreationTime
-        m_LastAccessTime = data.ftLastAccessTime
-        m_LastWriteTime = data.ftLastWriteTime
-
-        m_IsFreshed = True
+        If hFind <> INVALID_HANDLE_VALUE Then
+            m_FileAttributes = New FileAttributes(data.dwFileAttributes As Long, "FileAttributes")
+            m_CreationTime = data.ftCreationTime
+            m_LastAccessTime = data.ftLastAccessTime
+            m_LastWriteTime = data.ftLastWriteTime
+            m_IsFreshed = True
+        Else
+            Throw New IOException("DriveInfo.Refresh: Failed to FindFirstFile.")
+        End If
     End Sub
 
@@ -280 +283 @@
         Dim hFile = CreateFile(ToTCStr(FullPath), GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0)
         If hFile = INVALID_HANDLE_VALUE Then
-            debug 'Exception
+            Throw New IOException("DriveInfo.setFileTime: Failed to CreateFile.")
             Exit Function
         End If
 
         If SetFileTime(hFile, m_CreationTime, m_LastAccessTime, m_LastWriteTime) = False Then
-            debug 'Exception
+            Throw New IOException("DriveInfo.setFileTime: Failed to SetFileTime.")
         End If