如何获取名称中也包含点的目录的子文件夹名称？

Question

我正在尝试使用目录中的所有文件夹名称填充字符串列表。

以下是我如何做到这一点的摘录：

var
  SL: TStringList;
  SearchAttr: LongInt;
  SR: TSearchRec;
begin
  SL := TStringList.Create;
  try
    SearchAttr := (faDirectory);

    if FindFirst(Directory + '\*.', SearchAttr, SR) = 0 then
    begin
      try
        repeat
          if (SR.Attr and faDirectory) <> 0 then
          begin
            if (SR.Name <> '.') and (SR.Name <> '..') then
            begin
              SL.Add(Directory + SR.Name);
            end;
          end;
        until
          FindNext(Sr) <> 0;
        finally
          FindClose(SR);
        end;
      end;
    end;

    // do something with string list folder names      
  finally
    SL.Free;
  end;
end;

我正在访问的父文件夹包含 220 个子文件夹，但例程只添加了 216 个文件夹名称。经过一些比较和调试后，我注意到未添加的 4 个文件夹名称中包含点。

为了测试，我创建了一个名为“Test Folder”的文件夹，并在其中添加了 9 个新文件夹，名为：

• 文件夹 1
• 文件夹 2
• 文件夹 3
• 文件夹 4
• 文件夹 5
• 文件夹 .6
• 文件夹 7
• F.O.L.D.E.R 8
• 文件夹 9

使用“测试文件夹”作为父目录时，只添加以下子文件夹：

• 文件夹 1
• 文件夹 2
• 文件夹 3
• 文件夹 4
• 文件夹 5
• 文件夹 7
• 文件夹 9

我一直在尝试SR.Name <> '.'、SR.Name <> '..' 和SR.Name[1] <> '.' 等，但没有成功。

如何修改代码以允许名称中带有点的文件夹名称并将它们添加到我的字符串列表中？

谢谢

Answer 1

将搜索字符串从'*.'更改为'*'

您的搜索字符串只匹配具有空扩展名的对象。您想匹配所有对象，无论它们是否具有扩展名。