即使仅与faDirectory一起使用,FindNext也会返回文件名

Question

我试图列出给定目录中的所有目录.我有这个代码:

var
    srec: TSearchRec;

begin
    // folder is some absolute path of a folder
    if FindFirst(folder + PathDelim + '*', faDirectory, srec) = 0 then
        try
            repeat
                if (srec.Name <> '.') and (srec.Name <> '..') then
                    ShowMessage(srec.Name);
            until FindNext(srec) <> 0;
        finally
            FindClose(srec);
        end;

但由于某种原因,我只收到有关文件名而不是目录的消息.我认为使用faDirectory将使make FindFirst和family只返回目录的名称.我究竟做错了什么？如果我改成它

if FindFirst(folder, faDirectory, srec) = 0 then

然后它只显示名称folder但不是绝对路径(相对于folder + '/..'),然后退出.

我意识到我可以确定它是否是一个目录,(srec.Attr and faDirectory) = faDirectory但我觉得这是以迂回的方式做事情,应该有一个正确的方法来做到这一点.

Answer 1

如果您使用的是delphi xe,请检查该TDirectory.GetDirectories功能.

该SysUtils.FindFirst文档已回答了你的问题.

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

除了所有普通文件外, Attr参数还指定要包含的特殊文件.指定Attr参数时,请从这些文件属性常量中进行选择.