Source commit: f2b7a8e3e6eb6504b8aeba8c578c7cf52f8e72e0
@@ -1537,9 +1537,13 @@ var
if (UpperCase(GetDirName(Node)) = Dir) or (TNodeData(Node.Data).ShortName = Dir) then
begin
if Length(Path) > 0 then
+ begin
Result := SearchSubDirs(Node, Path)
- else
+ end
+ else
Result := Node;
+ end;
Exit;
end;
Node := ParentNode.GetNextChild(Node);