Index: trunk/Include/Classes/System/IO/FileSystemInfo.ab
===================================================================
--- trunk/Include/Classes/System/IO/FileSystemInfo.ab	(revision 440)
+++ trunk/Include/Classes/System/IO/FileSystemInfo.ab	(revision 441)
@@ -245,5 +245,5 @@
 	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,5 +265,5 @@
 			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,10 +283,11 @@
 		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