Changeset 562 for trunk/ab5.0/ablib/src/Classes/System/IO/FileInfo.ab

Timestamp:

Jul 21, 2008, 6:43:29 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

9xなどで実行できなくなるので、GetFileSizeExをコメントアウト

File:

• trunk/ab5.0/ablib/src/Classes/System/IO/FileInfo.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/IO/FileInfo.ab

@@ -64 +64 @@
         End If
 
-        Dim length As QWord
-        If GetFileSizeEx(hFile, VarPtr(length)) Then
-            CloseHandle(hFile)
-            Return length
-        Else
-            CloseHandle(hFile)
-            Throw New IOException("FileInfo.Length: Failed to GetFileSize")
+        Dim pLength = VarPtr(Length) As *ULARGE_INTEGER
+        pLength->LowPart = GetFileSize(hFile, VarPtr(pLength->HighPart))
+        CloseHandle(hFile)
+
+        Dim error = GetLastError()
+        If pLength->LowPart = INVALID_FILE_SIZE And error <> NO_ERROR Then
+            Throw New IOException("FileInfo.Length: Failed to GetFileSize", HRESULT_FROM_WIN32(error))
         End If
     End Function