Changeset 406 for trunk/Include/Classes/System/IO/DirectoryInfo.ab

Timestamp:

Feb 15, 2008, 7:48:54 PM (17 years ago)

Author:

OverTaker

Message:

FileSystemInfo.FileAttributesを修整

File:

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

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

@@ -137 +137 @@
         Dim i As Long
         For i = 0 To ELM(infos.Count)
-            If infos[i].Attributes = FILE_ATTRIBUTE_DIRECTORY Then
+            If (infos[i].Attributes and FileAttributes.Directory) = FileAttributes.Directory Then
                 dirs.Add(infos[i] As DirectoryInfo)
             End If
@@ -196 +196 @@
         Dim i As Long
         For i = 0 To ELM(infos.Count)
-            If infos[i].Attributes <> FILE_ATTRIBUTE_DIRECTORY Then
+            If (infos[i].Attributes and FileAttributes.Directory) <> FileAttributes.Directory Then
                 files.Add(infos[i] As FileInfo)
             End If