Your program probably has a call to SYSTEM. Replacing that with END will keep your screen up with "Press any key to continue" or similar. That won't allow you to scroll back in case your output is longer than the screen, though.

You can, however, create a console application and replicate the DOS experience by having your program output to terminal:

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE

Add the snippet above to the beginning of your program.

Thank you!  This works great!  Much appreciated!

DIM dskfile$(200)
filespec$ = "*.txt"
' Caution. If you already have a file named tmp.txt, this next statement will overwrite a file named tmp.txt in your current directory.
SHELL _HIDE "dir /b " + filespec$ + ">tmp.txt"
' The /b switch returns only the file names.
OPEN "tmp.txt" FOR INPUT AS #1
DO UNTIL EOF(1)
    LINE INPUT #1, a$
    dskfile = dskfile + 1
    dskfile$(dskfile) = a$
LOOP

FOR i = 1 TO dskfile
    PRINT i; dskfile$(i)
NEXT
-----------------------------------

Also, check out _FILEESIST in the WIKI: https://qb64.org/wiki

Pete :)

Thanks Pete... I used to do it like this before the DIR$ function was added.  It worked but I try to avoid using SHELL as much as possible.  Thanks though.

Hi,

I used to write my code using Professional Basic (QBX) 7.1

It was a nice program since you could test and debug your code within the compiler without having to make a .exe file first.

I have been using QB64 to convert some of my programs so they would work in Windows 10 and love that it is available.  Without QB64, I'd have to run everything in my Virtual XP window.

I installed your latest version 1.2 and found that it doesn't like the DIR$ command that is a valid function within QBX.   It looks like _DIR$ is in QB64 but it doesn't work the same as DIR$.

For example, if I want to see a list of text files, I can do the following in QBX

DIM dskfile$(200)

filespec$ = "*.txt"
a$ = _DIR$(filespec$)

IF LEN(a$) = 0 THEN GOTO nofilesexist

dskfile = 1
dskfile$(dskfile) = a$

DO
    b$ = DIR$
    IF LEN(b$) = 0 THEN GOTO filelistdone
    dskfile = dskfile + 1
    dskfile$(dskfile) = b$
LOOP

GOTO filelistdone

nofilesexist:

STOP

filelistdone:
FOR n = 1 TO dskfile
    PRINT dskfile$(n)
NEXT n

PRINT dskfile; "files exist"

Using this method I can store into my array all the files that are named .txt

Is there any simple way for me to do the same in QB64?

Thanks,
Alex