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

Timestamp:

Sep 9, 2007, 2:21:07 PM (17 years ago)

Author:

OverTaker

Message:

DirectoryInfo.GetDirectoriesのバグ修整。

File:

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

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

@@ -43 +43 @@
     Sub CreationTime(ByRef value As DateTime)
         m_CreationTime = value.ToFileTimeUtc()
-        If setFileTime() = False Then
-            'Exception
-            debug
-        End If
+        setFileTime()
     End Sub
 
     Function CreationTimeUtc() As DateTime
-        Dim date = CreationTime As DateTime
-        Return date.ToUniversalTime()
+        Return CreationTime.ToUniversalTime()
     End Function
 
@@ -64 +60 @@
     Sub LastAccessTime(ByRef value As DateTime)
         m_LastAccessTime = value.ToFileTimeUtc()
-        If setFileTime() = False Then
-            'Exception
-            debug
-        End If
+        setFileTime()
     End Sub
 
     Function LastAccessTimeUtc() As DateTime
-        Dim date = LastAccessTime As DateTime
-        Return date.ToUniversalTime()
+        Return LastAccessTime.ToUniversalTime()
     End Function
 
@@ -85 +77 @@
     Sub LastWriteTime(ByRef value As DateTime)
         m_LastWriteTime = value.ToFileTimeUtc()
-        If setFileTime() = False Then
-            'Exception
-            debug
-        End If
+        setFileTime()
     End Sub
 
     Function LastWriteTimeUtc() As DateTime
-        Dim date = LastWriteTime As DateTime
-        Return date.ToUniversalTime()
+        Return LastWriteTime.ToUniversalTime()
     End Function
 
@@ -138 +126 @@
         m_LastWriteTime = data.ftLastWriteTime
     End Sub
-
 Private
-    Function setFileTime() As Boolean
+    Sub setFileTime()
         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
-            setFileTime = False
+            debug 'Exception
             Exit Function
         End If
 
-        If SetFileTime(hFile, m_CreationTime, m_LastAccessTime, m_LastWriteTime) Then
-            setFileTime = True
-        Else
-            setFileTime = False
+        If SetFileTime(hFile, m_CreationTime, m_LastAccessTime, m_LastWriteTime) = False Then
+            debug 'Exception
         End If
 
         CloseHandle(hFile)
-    End Function
+    End Sub
 End Class