[ptbr]
Opa obrigado, dessa eu não sabia, vlw mesmo!!
Mas mesmo assim usando objeto, é ainda mais rápido.

[eng(translate)]
Hi, thanks, I did not know that, vlw !!
But even so using object, it's even faster.

file read in (Kix) 641 ms
file read in (obj) 203 ms

 Code:
dim $start, $start1
$start = @ticks
$dir = ReadFileToArray( $filename )
$start = @ticks - $start


$start1	= @ticks
$objFSO	= CreateObject("Scripting.FileSystemObject")
$objFile	= $objFSO.OpenTextFile($filename, 1, 0)
$filename= Split($objFile.ReadAll, @crlf)
$objFile.Close
$start1	= @ticks-$start1


[ptbr]
O arquivo possuí 30.058 linhas, 464kb.
Enfim muito obrigado aos dois, foi muito valioso isso.

[eng(translate)]
The file has 30,058 lines, 464kb.
Anyway, thank you very much, it was very valuable.