604 |
TSystemFile *questo = 0; |
TSystemFile *questo = 0; |
605 |
while ((questo = (TSystemFile*) next())) { |
while ((questo = (TSystemFile*) next())) { |
606 |
TString name = questo->GetName(); |
TString name = questo->GetName(); |
607 |
P->Add(name); |
P->Add(name); |
608 |
|
} |
609 |
|
if ( P->GetEntries() ){ |
610 |
|
TTree *Pclone = P->CloneTree(); |
611 |
|
Target->cd(); |
612 |
|
Pclone->Write("ProcessingInfo",TObject::kOverwrite); |
613 |
|
P->Delete(); |
614 |
|
P=0; |
615 |
} |
} |
|
TTree *Pclone = P->CloneTree(); |
|
|
Target->cd(); |
|
|
Pclone->Write("ProcessingInfo",TObject::kOverwrite); |
|
|
P->Delete(); |
|
|
P=0; |
|
616 |
} |
} |
617 |
// |
// |
618 |
Target->Close(); |
Target->Close(); |