Changeset 345 for trunk/Include/Classes/System/IO/FileSystemInfo.ab

Timestamp:

Sep 29, 2007, 9:26:35 PM (17 years ago)

Author:

OverTaker

Message:

GetFileSystemInfos実装完了。他ちょっとした修整

File:

• trunk/Include/Classes/System/IO/FileSystemInfo.ab (modified) (7 diffs)

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

@@ -8 +8 @@
     m_LastWriteTime As FILETIME
     m_FileAttributes As DWord
+
+    m_IsFreshed As Boolean
 Protected
     FullPath As String
     OriginalPath As String
 Public
+    Sub FileSystemInfo()
+        m_IsFreshed = False
+    End Sub
+
+    Sub ~FileSystemInfo()
+    End Sub
 
     Override Function Equals( object As Object ) As Boolean
@@ -27 +35 @@
     'Public Properties
     Function Attributes() As DWord'FileAttributes
+        If Not m_IsFreshed Then Refresh()
         Return m_FileAttributes
     End Function
@@ -38 +47 @@
 
     Function CreationTime() As DateTime
+        If Not m_IsFreshed Then Refresh()
         Return DateTime.FromFileTime(m_CreationTime)
     End Function
@@ -55 +65 @@
 
     Function LastAccessTime() As DateTime
+        If Not m_IsFreshed Then Refresh()
         Return DateTime.FromFileTime(m_LastAccessTime)
     End Function
@@ -72 +83 @@
 
     Function LastWriteTime() As DateTime
+        If Not m_IsFreshed Then Refresh()
         Return DateTime.FromFileTime(m_LastWriteTime)
     End Function
@@ -89 +101 @@
 
     Function Exists() As Boolean
+        If Not m_IsFreshed Then Refresh()
         If m_FileAttributes = 0 Then
             Return False
@@ -128 +141 @@
 Private
     Sub setFileTime()
+        If Not m_IsFreshed Then Refresh()
         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