1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-19 21:25:11 +00:00

Fix temp file name generation in filesys_test.bas

This commit is contained in:
Samuel Gomes 2024-06-06 07:19:40 +05:30
parent fd47c1fe0a
commit 12c9bfa21f

View file

@ -79,7 +79,7 @@ SYSTEM 1
FUNCTION CreateDummyFile$ (directory AS STRING, extension AS STRING)
DO
DIM fileName AS STRING: fileName = directory + LTRIM$(STR$(100! * (TIMER + RND))) + extension
DIM fileName AS STRING: fileName = directory + LTRIM$(STR$(INT(100! * (TIMER + RND)))) + extension
LOOP WHILE _FILEEXISTS(fileName)
DIM h AS LONG: h = FREEFILE