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

Timestamp:

Sep 9, 2007, 2:21:07 PM (17 years ago)

Author:

OverTaker

Message:

DirectoryInfo.GetDirectoriesのバグ修整。

File:

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

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

@@ -105 +105 @@
                     subdirs = dirs[i].GetDirectories(searchPattern)
                     For j = 0 To ELM(subdirs.Count)
-                        dirs.Add(subdirs[i])
+                        dirs.Add(subdirs[j])
                     Next
                 Next
@@ -136 +136 @@
             Case SearchOption.AllDirectories
                 Dim dirs As List<DirectoryInfo>
-                dirs = GetDirectories(searchPattern, SearchOption.AllDirectories)
+                dirs = GetDirectories("?*", SearchOption.AllDirectories)
 
                 Dim files As List<FileInfo>
-                Dim subfiles As List<FileInfo>
-                Dim i As Long, j As Long
+                files = GetFiles(searchPattern)
+                Dim i As Long, j As Long, subfiles As List<FileInfo>
                 For i = 0 To ELM(dirs.Count)
                     subfiles = dirs[i].GetFiles(searchPattern)