Findfile.bas is v1.3a 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", B)

The function also returns the bits of the file attribute allowing for
detection of Read-Only, Hidden, System, Archive, and Directory files.
Example: IF (B AND &H10)=&H10 THEN PRINT "<DIR>"

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

Upgrade to v1.2a returns the file attributes.

Upgrade to v1.3a detects invalid drive and disk not ready.

This code is public domain 2002.

-end-

