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