Changeset 376 for trunk/Include


Ignore:
Timestamp:
Nov 11, 2007, 4:59:18 PM (17 years ago)
Author:
OverTaker
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Include/Classes/System/IO/DirectoryInfo.ab

    r345 r376  
    8484        Dim i As Long
    8585        For i = 0 To ELM(infos.Count)
    86             If infos[i].GetType.ToString() = "DirectoryInfo" Then
     86            If infos[i].Attributes = FILE_ATTRIBUTE_DIRECTORY Then
    8787                dirs.Add(infos[i] As DirectoryInfo)
    8888            End If
     
    122122        Dim i As Long
    123123        For i = 0 To ELM(infos.Count)
    124             If infos[i].GetType.ToString() = "FileInfo" Then
     124            If infos[i].Attributes <> FILE_ATTRIBUTE_DIRECTORY Then
    125125                files.Add(infos[i] As FileInfo)
    126126            End If
Note: See TracChangeset for help on using the changeset viewer.