前のトピック: FindClose - 検索処理の終了次のトピック: FindFirstFile - ディレクトリ内のファイル検索


FindFirst - 検索で最初に見つかったファイルの名前を返す

NetWare、Symbian OS、UNIX、Windows、および Windows CE で有効です。

FindFirst 関数では、指定のフィルタに一致する最初のファイルの名前が返されます。

ファイルの内容に関するこの関数の形式は、以下のとおりです。

FindFirst(Filter as string, Attrib as integer) as string
FindFirst(Filter as string) as string
Filter

スキャンするファイルを指定します。 このパラメータには、検出するファイルに対する、ドライブ指定、パス、およびファイル名を含めることができます。 ファイル名には、ワイルドカード文字 (? または *)を含めることができます。

Attrib

スキャンの対象となるファイルを選択するためのファイル属性を指定します。 Attrib パラメータが省略されている場合、FA_ALLFILES が想定されます。 Attrib は、以下の値の OR 演算により指定できます。

FA_NONE

通常のファイル、属性なし

FA_RDONLY

読み取り専用ファイル

FA_HIDDEN

隠しファイル

FA_SYSTEM

システム ファイル

FA_LABEL

ボリューム ラベル

FA_DIR

ディレクトリ

FA_ARCHIVE

アーカイブ ファイル

FA_ALLFILES

すべてのファイル

FA_ANYFILE

任意のファイル

正常に終了した場合、FindFirst 関数では、最初に一致したファイルの名前を含む文字列が返されます。 それ以外の場合は、空の文字列が返されます。

例: FindFirst 関数

この例では、C: ドライブのルート ディレクトリにある .bat 拡張子を持つすべてのファイルが検出されてリストされます。

Dim Filename as string

Filename=FindFirst("C:¥*.BAT",FA_ANYFILE)
while Filename<>""
	 print Filename
	 Filename=FindNext()
wend