FileSearcher: added ExpandFileName in the AddInput method

jackdp · May 16, 2022 · 5aa234d · 5aa234d
1 parent a6267c0
commit 5aa234d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Base/JPL.FileSearcher.pas b/Base/JPL.FileSearcher.pas
@@ -397,7 +397,8 @@ function TJPFileSearcher.AddInput(const FileNameOrMask: string; RecurseDepth: in
   Mask, Dir: string;
 begin
   Mask := ExtractFileName(FileNameOrMask);
-  Dir := ExtractFileDir(FileNameOrMask);
+  //Dir := ExtractFileDir(FileNameOrMask);
+  Dir := ExtractFileDir(ExpandFileName(FileNameOrMask));
   Result := AddInput(Dir, Mask, RecurseDepth);
 end;