Would it be possible to cache the length?
Code: Select all
;Create a EXE out of the PB-Code and put it in a shared folder under Windows 8
; just create a dummy file (has nothing to do with the bug)
CreateFile(1, "test.dat")
WriteByte(1, 0)
CloseFile(1)
ReadFile(1,"test.dat")
start = ElapsedMilliseconds()
For i = 0 To 10 * 1024
sz = Lof(1)
Next
MessageRequester("","needed time: " +Str(ElapsedMilliseconds() - start))
CloseFile(1)
; Windows 8 normal directory: 16 ms
; Windows 8 shared directory: 7500 ms <-- this is strange
; Windows 7 normal directory: 16 ms
; Windows 7 shared directory: 16 ms


