From 5aa234d66acb3aaa063ac5bdce87980ebcd6544c Mon Sep 17 00:00:00 2001
From: Jacek Pazera <jacekpazera@wp.pl>
Date: Mon, 16 May 2022 08:24:19 +0200
Subject: [PATCH] FileSearcher: added ExpandFileName in the AddInput method

---
 Base/JPL.FileSearcher.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Base/JPL.FileSearcher.pas b/Base/JPL.FileSearcher.pas
index 34beb63..a82f153 100644
--- 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;