Changeset 376
- Timestamp:
- Nov 11, 2007, 4:59:18 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/System/IO/DirectoryInfo.ab
r345 r376 84 84 Dim i As Long 85 85 For i = 0 To ELM(infos.Count) 86 If infos[i]. GetType.ToString() = "DirectoryInfo"Then86 If infos[i].Attributes = FILE_ATTRIBUTE_DIRECTORY Then 87 87 dirs.Add(infos[i] As DirectoryInfo) 88 88 End If … … 122 122 Dim i As Long 123 123 For i = 0 To ELM(infos.Count) 124 If infos[i]. GetType.ToString() = "FileInfo"Then124 If infos[i].Attributes <> FILE_ATTRIBUTE_DIRECTORY Then 125 125 files.Add(infos[i] As FileInfo) 126 126 End If
Note:
See TracChangeset
for help on using the changeset viewer.