Changeset 130


Ignore:
Timestamp:
Mar 4, 2007, 7:14:40 PM (18 years ago)
Author:
OverTaker
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/IO/FileSystemInfo.ab

    r105 r130  
    165165    End Sub
    166166
    167     Sub Refresh()
     167    Virtual Sub Refresh()
    168168        Dim data As WIN32_FIND_DATA
    169169        Dim hFind As HANDLE
    170170        hFind = FindFirstFile(FullPath, data)
    171         CloseHandle(hFind)
     171        FindClose(hFind)
    172172
    173173        m_FileAttributes = data.dwFileAttributes
Note: See TracChangeset for help on using the changeset viewer.