From 5f9b16143e5170228719f9540ba06f36bfd2cd3c Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 5 Nov 2014 09:39:03 +0100
Subject: [PATCH] scan file from path with asterisk can include the separator:
 path* or path\*

---
 src/ce_common.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index 1917f99a..5b999994 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -580,7 +580,9 @@ var
 begin
   if aPath[length(aPath)] = '*' then
   begin
-    pth := aPath[1..length(aPath)-2];
+    pth := aPath[1..length(aPath)-1];
+    if pth[length(pth)] in ['/','\'] then
+      pth := pth[1..length(pth)-1];
     if not directoryExists(pth) then exit(false);
     //
     files := TStringList.Create;