Findfile.bas is v1.1 of a sample program for a file matching function.

Findfile for QB v4.5 simulates the DIR$() function in BC7 (PDS 7.10).

The first call to DIR$ using a filespec match, such as *.BI, returns the
first file found. Second and following calls to DIR$ with a Null string
returns remaining matching filespecs. Example: F$ = DIR$("*.BI")

Findfile does not currently allow Windows long filenames, only 8.3 files.

This code is public domain 2002.

-end-

Instructions:

  Start QB:

    QB /L QB.QLB

  Load Findfile.bas

Compiling:

  Use BC:

    BC Findfile/o;

  Link:

    LINK Findfile,,,QB.LIB;
     -or-
    LINK Findfile+intrpt;

-end-
