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

Timestamp:

Mar 8, 2008, 7:33:08 PM (17 years ago)

Author:

OverTaker

Message:

File.ab,FileInfo.abをそれなりに実装

File:

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

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

@@ -73 +73 @@
     */
     Sub Attributes(value As FileAttributes)
-        If SetFileAttributes(ToTCStr(FullPath), value) = FALSE Then
-            'Exception
-            Debug
+        If Not SetFileAttributes(ToTCStr(FullPath), value) Then
+            Throw New IOException("FileSystemInfo.Attributes: Failed to SetFileAttributes.")
         End If
     End Sub
@@ -199 +198 @@
     */
     Function Exists() As Boolean
-        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
-        End If
+        Return File.Exists(FullPath)
     End Function