Ticket #599: bug599-v2.patch

File.au3

@@ -132 +132 @@
                         ExitLoop
                 EndIf
                 If $iFlag = 1 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") <> 0 Then ContinueLoop
                 If $iFlag = 2 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") = 0 Then ContinueLoop
-                ReDim $asFileList[UBound($asFileList) + 1]
-                $asFileList[0] = $asFileList[0] + 1
-                $asFileList[UBound($asFileList) - 1] = $sFile
+                $asFileList[0] += 1
+                If UBound($asFileList) <= $asFileList[0] Then ReDim $asFileList[UBound($asFileList) * 2]
+                $asFileList[$asFileList[0]] = $sFile
         WEnd
         FileClose($hSearch)
+        ReDim $asFileList[$asFileList[0] + 1]  ; Trim unused slots
         Return $asFileList
 EndFunc   ;==>_FileListToArray
 
 ; #FUNCTION# ====================================================================================================================