mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-12 21:35:13 +00:00
Merge branch 'QB64-Phoenix-Edition:main' into main
This commit is contained in:
commit
36fa63c60a
|
@ -15,6 +15,7 @@ FUNCTION CopyFile& (sourceFile$, destFile$)
|
||||||
fileLength = LOF(sourceFileNo)
|
fileLength = LOF(sourceFileNo)
|
||||||
|
|
||||||
destFileNo = FREEFILE
|
destFileNo = FREEFILE
|
||||||
|
OPEN destFile$ FOR OUTPUT AS #destFileNo: CLOSE #destFileNo 'create and blank any existing file with the dest name.
|
||||||
OPEN destFile$ FOR BINARY AS #destFileNo
|
OPEN destFile$ FOR BINARY AS #destFileNo
|
||||||
IF E = 1 THEN GOTO errorCleanup
|
IF E = 1 THEN GOTO errorCleanup
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue