Programmieren - alles kontrollieren 4.941 Themen, 20.715 Beiträge

Wie Kann ich mit Delphi5 ein Verzeichnis samt Unterordner Kopieren.

Mit folgender Procedure kann ich zwar mehrere Dateien über die Wildcard *.* kopieren, jedoch werden die Unterverzeichnisse nicht berücksichtigt:

procedure DateiCopy(von,nach,maske:string);
var sr:TSearchRec;
begin
if ansilastchar (von)\'\\\\\' then
von:=von+\'\\\\\';
if ansilastchar (nach)\'\\\\\' then
nach:=nach+\'\\\\\';
if findfirst (von+maske,faReadonly+faHidden+faSysFile+faArchive,sr)=0 then
begin
repeat
if not copyfile (pchar(von+sr.name),pchar(nach+sr.name),true)then if
application.messagebox(pchar(\'Soll die Datei \'+sr.name+\' überschrieben werden?\'),
\'Datei bereits vorhanden\',mb_yesno or mb_iconerror)=idyes then
copyfile (pchar(von+sr.name),pchar(nach+sr.name),false);
until findnext(sr)0;
FindClose(sr);
end else showmessage (\'Keine entsprechende Datei gefunden\');
end;


Ich habe zwar auch eine Routine, die mir sowohl unterordner, als auch Dateien auffindet, jedoch ist ihr Rückgabewert TStrings und nicht String. Folglich kann ich sie nicht verwenden. Oder doch???


Im Voraus vielen Dank

Sam