forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

hidden folders handled by search routines

This commit is contained in:
Basile Burg 2014-08-08 01:10:05 +02:00
parent df8c816086
commit edb85ef714
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_common.pas
View File

@ -497,7 +497,7 @@ procedure listFolders(const aList: TStrings; const aPath: string);
var var
sr: TSearchrec; sr: TSearchrec;
begin begin
if findFirst(aPath + '*', faDirectory, sr) = 0 then if findFirst(aPath + '*', faAnyFile, sr) = 0 then
try try
repeat if isFolder(sr) then repeat if isFolder(sr) then
aList.Add(aPath + sr.Name); aList.Add(aPath + sr.Name);