mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 03:14:45 +00:00
Fix temp file name generation in filesys_test.bas
This commit is contained in:
parent
fd47c1fe0a
commit
12c9bfa21f
1 changed files with 1 additions and 1 deletions
|
@ -79,7 +79,7 @@ SYSTEM 1
|
||||||
|
|
||||||
FUNCTION CreateDummyFile$ (directory AS STRING, extension AS STRING)
|
FUNCTION CreateDummyFile$ (directory AS STRING, extension AS STRING)
|
||||||
DO
|
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)
|
LOOP WHILE _FILEEXISTS(fileName)
|
||||||
|
|
||||||
DIM h AS LONG: h = FREEFILE
|
DIM h AS LONG: h = FREEFILE
|
||||||
|
|
Loading…
Reference in a new issue