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);