Ignore:
Timestamp:
Sep 7, 2007, 10:44:25 PM (17 years ago)
Author:
OverTaker
Message:

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

File:
1 edited

Legend:

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

    r321 r325  
    9292    End Function
    9393
    94 /*  Function GetDirectories(searchPattern As String, searchOption As SearchOption) As List<DirectoryInfo>
     94    Function GetDirectories(searchPattern As String, searchOption As SearchOption) As List<DirectoryInfo>
    9595        If searchOption = SearchOption.TopDirectoryOnly Then
    9696            Return GetDirectories(searchPattern)
     
    109109            Return dirs
    110110        End If
    111     End Function*/
     111    End Function
    112112
    113113    Function GetFiles() As List<FileInfo>
     
    139139        Dim find As HANDLE
    140140        Dim findData As WIN32_FIND_DATA
    141         find = FindFirstFile(ToTCStr(Path.Combine(FullPath, searchPattern)), findData)
     141        find = FindFirstFile("?*", findData)
    142142        If find = INVALID_HANDLE_VALUE Then
    143143            debug 'Exception
     
    146146
    147147        Dim files As List<FileSystemInfo>
    148         Dim lastError = GetLastError() As DWord
     148        Dim lastError As DWord
    149149        Dim i As Long
    150150        While lastError <> ERROR_NO_MORE_FILES
Note: See TracChangeset for help on using the changeset viewer.