Changeset 130

Timestamp:

Mar 4, 2007, 7:14:40 PM (17 years ago)

Author:

OverTaker

Message:

Refreshメソッドのバグ修整と、Virtual Functionに変更。

File:

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

Include/Classes/System/IO/FileSystemInfo.ab

@@ -165 +165 @@
     End Sub
 
-    Sub Refresh()
+    Virtual Sub Refresh()
         Dim data As WIN32_FIND_DATA
         Dim hFind As HANDLE
         hFind = FindFirstFile(FullPath, data)
-        CloseHandle(hFind)
+        FindClose(hFind)
 
         m_FileAttributes = data.dwFileAttributes