Changeset 441 for trunk/Include/Classes/System/IO

Timestamp:

Feb 28, 2008, 10:52:52 PM (17 years ago)

Author:

OverTaker

Message:

ファイルの閉じ忘れ修整。例外メッセージのミス修整。

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 New IOException("DriveInfo.Delete: Failed to DeleteFile.")
+            Throw New IOException("FileSystemInfo.Delete: Failed to DeleteFile.")
         End If
     End Sub
@@ -265 +265 @@
             m_IsFreshed = True
         Else
-            Throw New IOException("DriveInfo.Refresh: Failed to FindFirstFile.")
+            Throw New IOException("FileSystemInfo.Refresh: Failed to FindFirstFile.")
         End If
     End Sub
@@ -283 +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
-            Throw New IOException("DriveInfo.setFileTime: Failed to CreateFile.")
+            Throw New IOException("FileSystemInfo.setFileTime: Failed to CreateFile.")
             Exit Function
         End If
 
         If SetFileTime(hFile, m_CreationTime, m_LastAccessTime, m_LastWriteTime) = False Then
-            Throw New IOException("DriveInfo.setFileTime: Failed to SetFileTime.")
+            CloseHandle(hFile)
+            Throw New IOException("FileSystemInfo.setFileTime: Failed to SetFileTime.")
         End If