procedure GetFilenames(sPath, sFilename: String; AList: TStrings);
//功能描述: 列出sPath目录中(不含子目录)所有文件名符合sFilename规则的文件名
//入口参数:
// sPath - 目录路径
// sFilename - 文件名
//出口参数:
// AList - sPath目录中所有符合的文件名被添加到了这一列表中
var
SR : TSearchRec;
begin
if FindFirst(sPath + sFilename, faReadOnly + faHidden + faSysFile + faArchive + faAnyFile, SR) = 0 then
begin
repeat
AList.Add(sPath + SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
调用举例: 在ListBox1中列出 d:aaa*.*
GetFilenames ( 'd: ', 'aaa*.* ', ListBox1.Items);
//功能描述: 列出sPath目录中(不含子目录)所有文件名符合sFilename规则的文件名
//入口参数:
// sPath - 目录路径
// sFilename - 文件名
//出口参数:
// AList - sPath目录中所有符合的文件名被添加到了这一列表中
var
SR : TSearchRec;
begin
if FindFirst(sPath + sFilename, faReadOnly + faHidden + faSysFile + faArchive + faAnyFile, SR) = 0 then
begin
repeat
AList.Add(sPath + SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
调用举例: 在ListBox1中列出 d:aaa*.*
GetFilenames ( 'd: ', 'aaa*.* ', ListBox1.Items);