Changeset 376 for trunk/Include

Timestamp:

Nov 11, 2007, 4:59:18 PM (17 years ago)

Author:

OverTaker

Message:

ファイルかどうかの判定を修整。

File:

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

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

@@ -84 +84 @@
         Dim i As Long
         For i = 0 To ELM(infos.Count)
-            If infos[i].GetType.ToString() = "DirectoryInfo" Then
+            If infos[i].Attributes = FILE_ATTRIBUTE_DIRECTORY Then
                 dirs.Add(infos[i] As DirectoryInfo)
             End If
@@ -122 +122 @@
         Dim i As Long
         For i = 0 To ELM(infos.Count)
-            If infos[i].GetType.ToString() = "FileInfo" Then
+            If infos[i].Attributes <> FILE_ATTRIBUTE_DIRECTORY Then
                 files.Add(infos[i] As FileInfo)
             End If