Index: trunk/Include/Classes/System/IO/DirectoryInfo.ab
===================================================================
--- trunk/Include/Classes/System/IO/DirectoryInfo.ab	(revision 375)
+++ trunk/Include/Classes/System/IO/DirectoryInfo.ab	(revision 376)
@@ -84,5 +84,5 @@
 		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,5 +122,5 @@
 		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