From edb85ef714641aa478646a09fe7a09e85171416c Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Fri, 8 Aug 2014 01:10:05 +0200
Subject: [PATCH] hidden folders handled by search routines

---
 src/ce_common.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index 113a2050..2c8f0596 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -497,7 +497,7 @@ procedure listFolders(const aList: TStrings; const aPath: string);
 var
   sr: TSearchrec;
 begin
-  if findFirst(aPath + '*', faDirectory, sr) = 0 then
+  if findFirst(aPath + '*', faAnyFile, sr) = 0 then
   try
     repeat if isFolder(sr) then
       aList.Add(aPath + sr.Name);