Código Delphi [-] CanAdd := (Copy(AFolder.DisplayName, 1, 2) = 'b1') and (ExtractFileExt(AFolder.DisplayName) = '.pdf');
CanAdd := (Copy(AFolder.DisplayName, 1, 2) = 'b1') and (ExtractFileExt(AFolder.DisplayName) = '.pdf');