 |
操作系统：WIN2000 SERVER
工具：DELPHI 6.0
问题：
假如某一个目录下有几个文件，例如（工人工资2003年12月已经发.abc 领导工资2003年12月未发.abc 流氓工资2003年12月核定.abc）三个文件，而我要对三个都进行操作，操作的依据是时间等于2003年12月，在这里面除了字符串2003年12月和后缀名 .abc是固定的外，其它都是不一定的，请问，在程序中，如何获取这三个文件名？在 DELPHI 6 中，获取文件的函数又是哪个？谢谢(林立峰)
|
| |
|
 |
可以使用FindFirst和FindNext函数查找文件，如：
begin
Found := FindFirst("c:\dir\*2003年12月*.abc", Attr, SearchRec);
while Found = 0 do
begin
ProcessSearchRec(SearchRec);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
TSearchRec类型定义如下：
type
TSearchRec = record
Time : Integer;
Size : Integer;
Attr : Integer;
Name : TFileName;
ExcludeAttr : Integer;
FindHandle : THandle;
FindData : TWin32FindData;
end;
当利用FindFirst和FindNext函数找到一个文件后，利用这个类型可以获得文件的属性、大小和修改时间等信息。
 相关问题：
QA001910 "怎样在一个目录及其子目录中寻找文件"
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Delphi, VCL, Borland, 磁盘、文件和目录, disk, file, fat, directory, folder。
|
| |
|
| |
|
| |
|
|
Delphi如何在目录中查找文件