Syntax

FileList array() [,[filespec$] [,[include_attr] [,exclude_attr]]]

Description

Fills a String or Variant array with filenames from disk.

Comments

The FileList function takes the following parameters:

Parameter

Description

Array()

Either a zero- or a one-dimensioned array of strings or variants. The array can be either dynamic or fixed.

If array() is dynamic, then it will be redimensioned to exactly hold the new number of elements. If there are no elements, then the array will be redimensioned to contain no dimensions. You can use the LBound, UBound, and ArrayDims functions to determine the number and size of the new array's dimensions.

If the array is fixed, each array element is first erased, then the new elements are placed into the array. If there are fewer elements than will fit in the array, then the remaining elements are initialized to zero-length strings (for String arrays) or Empty (for Variant arrays). A runtime error results if the array is too small to hold the new elements.

Filespec$

String specifying which filenames are to be included in the list.

The filespec$ parameter can include wildcards, such as * and ?. If this parameter is omitted, then * is used.

Include_attr

Integer specifying attributes of files you want included in the list. It can be any combination of the attributes listed below.

If this parameter is omitted, then the value 97 is used (ebReadOnly Or ebArchive Or ebNone).

Exclude_attr

Integer specifying attributes of files you want excluded from the list. It can be any combination of the attributes listed below.

If this parameter is omitted, then the value 18 is used (ebHidden Or ebDirectory). In other words, hidden files and subdirectories are excluded from the list.

Wildcards

The * character matches any sequence of zero or more characters, whereas the ? character matches any single character. Multiple *'s and ?'s can appear within the expression to form complete searching patterns. The following table shows some examples:

This Pattern

Matches These Files

Douesn't Match These Files

*S*.TXT

SAMPLE.TXT
GOOSE.TXT
SAMS.TXT

SAMPLE
SAMPLE.DAT

C*T.TXT

CAT.TXT

CAP.TXT
ACATS.TXT

C*T

CAT
CAP.TXT

CAT.DOC

C?T

CAT
CUT

CAT.TXT
CAPIT
CT

*

(All files)

File Attributes

These numbers can be any combination of the following:

Constant

Value

Includes

EbNormal

0

Read-only, archive, subdir, none

EbReadOnly

1

Read-only files

EbHidden

2

Hidden files

EbSystem

4

System files

EbVolume

8

Volume label

EbDirectory

16

DOS subdirectories

EbArchive

32

Files that have changed since the last backup

EbNone

64

Files with no attributes

Example

This example fills an array a with the directory of the current drive for all files that have normal or no attributes and excludes those with system attributes. The dialog box displays four filenames from the array.

Const crlf = Chr$(13) + Chr$(10)

Sub Main()
  Dim a$()
  FileList a$,"*.*",(ebNormal + ebNone),ebSystem
  If ArrayDims(a$) > 0 Then
    r = SelectBox("FileList","The files you filtered are:",a$)
  Else
    MsgBox "No files found."
  End If
End Sub

See Also

FileDirs (statement); Dir, Dir$ (functions).

F