mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-19 08:45:14 +00:00
Show a message box when no broken links are found.
This commit is contained in:
parent
af4f9f3918
commit
cc8f6605b5
|
@ -4165,10 +4165,7 @@ DO
|
||||||
f$ = iderecentbox
|
f$ = iderecentbox
|
||||||
IF f$ = "<C>" THEN
|
IF f$ = "<C>" THEN
|
||||||
f$ = ""
|
f$ = ""
|
||||||
PCOPY 3, 4
|
|
||||||
PCOPY 1, 3
|
|
||||||
r$ = ideclearhistory$("FILES")
|
r$ = ideclearhistory$("FILES")
|
||||||
PCOPY 4, 3
|
|
||||||
IF r$ = "Y" THEN
|
IF r$ = "Y" THEN
|
||||||
fh = FREEFILE
|
fh = FREEFILE
|
||||||
OPEN ".\internal\temp\recent.bin" FOR OUTPUT AS #fh: CLOSE #fh
|
OPEN ".\internal\temp\recent.bin" FOR OUTPUT AS #fh: CLOSE #fh
|
||||||
|
@ -4307,6 +4304,7 @@ fh = FREEFILE
|
||||||
OPEN ".\internal\temp\recent.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$
|
OPEN ".\internal\temp\recent.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$
|
||||||
CLOSE #fh
|
CLOSE #fh
|
||||||
a$ = RIGHT$(a$, LEN(a$) - 2)
|
a$ = RIGHT$(a$, LEN(a$) - 2)
|
||||||
|
FoundBrokenLink = 0
|
||||||
DO WHILE LEN(a$)
|
DO WHILE LEN(a$)
|
||||||
ai = INSTR(a$, CRLF)
|
ai = INSTR(a$, CRLF)
|
||||||
IF ai THEN
|
IF ai THEN
|
||||||
|
@ -4315,14 +4313,19 @@ DO WHILE LEN(a$)
|
||||||
ln = ln + 1
|
ln = ln + 1
|
||||||
REDIM _PRESERVE RecentFilesList(1 to ln)
|
REDIM _PRESERVE RecentFilesList(1 to ln)
|
||||||
RecentFilesList(ln) = f$
|
RecentFilesList(ln) = f$
|
||||||
|
ELSE
|
||||||
|
FoundBrokenLink = -1
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
LOOP
|
LOOP
|
||||||
|
|
||||||
fh = FREEFILE
|
If not FoundBrokenLink THEN
|
||||||
OPEN ".\internal\temp\recent.bin" FOR OUTPUT AS #fh: CLOSE #fh
|
ideerrormessage "All files in the list are accessible."
|
||||||
|
END IF
|
||||||
|
|
||||||
If ln > 0 THEN
|
If ln > 0 AND FoundBrokenLink THEN
|
||||||
|
fh = FREEFILE
|
||||||
|
OPEN ".\internal\temp\recent.bin" FOR OUTPUT AS #fh: CLOSE #fh
|
||||||
f$ = ""
|
f$ = ""
|
||||||
for ln = 1 to ubound(RecentFilesList)
|
for ln = 1 to ubound(RecentFilesList)
|
||||||
f$ = f$ + CRLF + RecentFilesList(ln) + CRLF
|
f$ = f$ + CRLF + RecentFilesList(ln) + CRLF
|
||||||
|
|
Loading…
Reference in a new issue