FileToString: Wie String zu "StringToFile?"

[Go2EITS]

Hallo DP,
Der Code aus der DP funktioniert ganz gut.
Aber mit den StringToFile stehe ich auf dem Kriegsfuss.
Für mein Tool, dass ich der DP Delphi Cleaner zur Verfügung gestellt habe, läuft die CopyDir wahrscheinlich zu langsam. Daher habe ich alle Files schon beim Suchen über FiletoString eingelesen. Nun bauche ich alle Strings wieder als File... Nur wie?

Hier der funktionierende Code aus der DP:

Delphi-Quellcode:

function FileToString(const FileName: string): AnsiString; 
var 
  fs: TFileStream; 
  Len: Integer; 
begin 
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); 
  try 
    Len := fs.Size; 
    SetLength(Result, Len); 
    if Len > 0 then 
      fs.ReadBuffer(Result[1], Len); 
  finally 
    fs.Free; 
  end; 
end;

Könnt Ihr mir wieder mal weiterhelfen?
Beste Grüße
Go2EITS