Changeset 325

Timestamp:

Sep 7, 2007, 10:44:25 PM (17 years ago)

Author:

OverTaker

Message:

FileSystemInfosバグ修整。GetDirectories実装。ガベージコレクションのバグで動かない。(調査中...)

File:

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

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

@@ -92 +92 @@
     End Function
 
-/*  Function GetDirectories(searchPattern As String, searchOption As SearchOption) As List<DirectoryInfo>
+    Function GetDirectories(searchPattern As String, searchOption As SearchOption) As List<DirectoryInfo>
         If searchOption = SearchOption.TopDirectoryOnly Then
             Return GetDirectories(searchPattern)
@@ -109 +109 @@
             Return dirs
         End If
-    End Function*/
+    End Function
 
     Function GetFiles() As List<FileInfo>
@@ -139 +139 @@
         Dim find As HANDLE
         Dim findData As WIN32_FIND_DATA
-        find = FindFirstFile(ToTCStr(Path.Combine(FullPath, searchPattern)), findData)
+        find = FindFirstFile("?*", findData)
         If find = INVALID_HANDLE_VALUE Then
             debug 'Exception
@@ -146 +146 @@
 
         Dim files As List<FileSystemInfo>
-        Dim lastError = GetLastError() As DWord
+        Dim lastError As DWord
         Dim i As Long
         While lastError <> ERROR_NO_MORE_FILES