$start = cdbl(""+flipctime(@date,@time)+"."+@msecs)
$file = loadfile("dir.txt")
$end = cdbl(""+flipctime(@date,@time)+"."+@msecs)
? "Loadfile() = " $end - $start

$start = cdbl(""+flipctime(@date,@time)+"."+@msecs)
$file = readfile("dir.txt")
$end = cdbl(""+flipctime(@date,@time)+"."+@msecs)
? "ReadFile() = " $end - $start



Function ReadFile($file)
	Dim $i,$f,$L
	$f = FreeFileHandle
	$i = Open($f,$file)
	If @Error
		Exit @Error
	EndIf
	$i = 0
	$L = ReadLine($f)
	While @Error = 0
		ReDim Preserve $ReadFile[$i]
		$ReadFile[$i] = $L
		$i = $i + 1
		$L = ReadLine($f)
	Loop
	$i = Close($f)
	Exit VarType($ReadFile) = 0 ; Exitcode 1 if file is empty
EndFunction

;this Function will load the contents of a text file into an array
Function loadfile($file)
	DIM $fso,$f,$fs
	$fso = CreateObject("Scripting.FileSystemObject")
	$f = $fso.GetFile($file)
	If @ERROR Exit(2) EndIf
	$fs = $f.OpenAsTextStream(1)
	$loadfile = Split($fs.Read($f.size),@CRLF)
	Exit(@ERROR)
EndFunction

Function FlipcTime($date,$time,optional $tz)
	dim $y,$m,$d
	$date = split($date,"/")
	if ubound($date) <> 2 exit(1) endif
	$y=val($date[0]) $m=val($date[1]) $d=val($date[2])
	if $m<3
		$m=$m+12
		$y=$y-1
	endif
	$Date=$d+(153*$m-457)/5+365*$y+$y/4-$y/100+$y/400-306
	$time = split($time,":")
	select 
		case ubound($time)=1
			redim preserve $time[2]
			$time[2]=0
		case ubound($time)=2
		case 1
			exit(1)
	endselect
	$time = (val($time[0])*3600)+(val($time[1])*60)+val($time[2])
	$flipctime = IIF($tz,(($date-719163)*86400 + $time)-($tz*3600),($date-719163)*86400 + $time)
endfunction

C:\temp>kix32 readfile.kix

Loadfile() = 0.75
ReadFile() = 1.42199993133545
C:\temp>kix32 readfile.kix

Loadfile() = 0.75
ReadFile() = 1.42200016975403
C:\temp>kix32 readfile.kix

Loadfile() = 0.75
ReadFile() = 2.12400007247925
C:\temp>kix32 readfile.kix

Loadfile() = 0.765000104904175
ReadFile() = 1.42199993133545
C:\temp>kix32 readfile.kix

Loadfile() = 0.766000032424927
ReadFile() = 1.42199993133545
C:\temp>