Changeset 462

Timestamp:

Mar 8, 2008, 4:49:29 PM (16 years ago)

Author:

dai

Message:

FileSystemInfo.Existsメソッドを、ファイルが存在しない場合に呼び出すと期待値Falseではなく、例外が投げられてしまう不具合を修正。

File:

• trunk/Include/Classes/System/IO/FileSystemInfo.ab (modified) (1 diff)

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

@@ -199 +199 @@
     */
     Function Exists() As Boolean
-        If Not m_IsFreshed Then Refresh()
-        If m_FileAttributes = 0 Then
+        Dim data As WIN32_FIND_DATA
+        Dim hFind = FindFirstFile(ToTCStr(FullPath), data)
+        FindClose(hFind)
+
+        If hFind <> INVALID_HANDLE_VALUE Then
+            Return True
+        Else
             Return False
-        Else
-            Return True
         End If
     End Function