Ticket #599: bug599-v2.patch

File bug599-v2.patch, 902 bytes (added by code65536, 12 years ago)

patch v2

  • File.au3

     
    132132                        ExitLoop
    133133                EndIf
    134134                If $iFlag = 1 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") <> 0 Then ContinueLoop
    135135                If $iFlag = 2 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") = 0 Then ContinueLoop
    136                 ReDim $asFileList[UBound($asFileList) + 1]
    137                 $asFileList[0] = $asFileList[0] + 1
    138                 $asFileList[UBound($asFileList) - 1] = $sFile
     136                $asFileList[0] += 1
     137                If UBound($asFileList) <= $asFileList[0] Then ReDim $asFileList[UBound($asFileList) * 2]
     138                $asFileList[$asFileList[0]] = $sFile
    139139        WEnd
    140140        FileClose($hSearch)
     141        ReDim $asFileList[$asFileList[0] + 1]  ; Trim unused slots
    141142        Return $asFileList
    142143EndFunc   ;==>_FileListToArray
    143144
    144145; #FUNCTION# ====================================================================================================================