Datentyp

[storm1988]

Ich würde gern die Ordnerstruktur auslesen lassen und diese dann übertragen.
Wie mache ich das am besten, wenn ich die Daten in einen memorystream packe??

Hier ist mal mein Source Code, wo ich jedoch noch die Daten auf die Fesplatte gespeichert hab:

Delphi-Quellcode:

procedure FindFilesTree (aPath: String);
Var
  SearchRec: tSearchRec;
    Datei: TextFile;
    awithFiles :Boolean;
Begin

   if FileExists('C:\test.txt') = False then
   begin
        Rewrite(Datei,'C:\test.txt');
        CloseFile(Datei);
   end;

   aWithFiles := True;

  If aPath [Length (aPath)] <> '\' Then
    aPath := aPath + '\';

  If FindFirst (aPath + '*.*', faDirectory, SearchRec) = 0 Then
    Begin
      Repeat

        If (SearchRec.Attr and faDirectory = faDirectory)
          and (SearchRec.Name[1] <> '.')
        Then
          Begin
            If (SearchRec.Attr and faDirectory > 0) then
              Begin

                        Anzahl_Ordner := Anzahl_Ordner + 1;

                        AssignFile(Datei,'C:\test.txt');
                        if IOResult = 0 then
                        Append(Datei);
                        begin
                        writeln(Datei,aPath + SearchRec.Name);
                        CloseFile(Datei);
                        end;
                        Form1.Edit2.Text :=  aPath + SearchRec.Name;

                        FindFilesTree(aPath + SearchRec.Name);

              End;

          End
        Else

          If aWithFiles
            and (SearchRec.Name <> '.') and (SearchRec.Name <> '..')
          Then
            Begin
                        Anzahl_Datein := Anzahl_Datein + 1;

                        Groesse_insgesamt := Groesse_insgesamt + GetFileSizeEx(apath + SearchRec.Name);

                        AssignFile(Datei,'C:\test.txt');
                        if IOResult = 0 then
                        Append(Datei);
                        begin
                        writeln(Datei,aPath + SearchRec.Name);
                        CloseFile(Datei);
                        end;
                        Form1.Edit2.Text :=  aPath + SearchRec.Name;

            End;

      Until FindNext (searchRec) <> 0;

      FindClose (SearchRec);
    End;
End;

MFG