Question

是否可以使用FileExists或FileSearch（或任何其他Pascal函数）来确定给定文件夹中是否存在文件模式？

例如：

if (FileExists('c:\folder\*.txt') = True) then

Answer 1

目前，没有任何函数可以支持通配符来检查某个文件是否存在。这是因为FileExists和FileSearch函数都在内部使用NewFileExists函数，正如源代码中的注释所述，该函数不支持通配符。

幸运的是，FindFirst支持通配符，因此您可以为您的任务编写如下函数：

[Code]
function FileExistsWildcard(const FileName: string): Boolean;
var
  FindRec: TFindRec;
begin
  Result := False;
  if FindFirst(FileName, FindRec) then
  try
    Result := FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0;
  finally
    FindClose(FindRec);
  end;
end;

它的用法与FileExists函数相同，只是您可以使用通配符进行搜索，例如描述FindFirstFile函数的lpFileName参数的MSDN参考。因此，要检查txt目录中是否有C:\Folder扩展名的文件，您可以通过以下方式调用上述函数：

if FileExistsWildcard('C:\Folder\*.txt') then
  MsgBox('There is a *.txt file in the C:\Folder\', mbInformation, MB_OK);

当然，要搜索的文件名可能包含文件的部分名称，例如：

if FileExistsWildcard('C:\Folder\File*.txt') then
  MsgBox('There is a File*.txt file in the C:\Folder\', mbInformation, MB_OK);

此类模式将匹配文件，例如C:\Folder\File12345.txt。

如何使用通配符测试Inno Setup中是否存在文件

1 个答案: