Hallo! 8)
Ich benutze folgende Struktur um ganze Verzeichnisse samt Dateien zu kopieren.
Es funktioniert...nur so weit wenn ich von der Festplatte kopiere.
Leider werden die Dateien (Verzeichnisse) vorwiegend von CD-ROM kopiert. Es geschieht ab und zu, dass ich folgende Fehlermeldung bekomme:
Von dem Datenträger kann nicht gelesen werden
obwohl die CD ok ist???
vielleicht kann man diese Funktion die ich verwende etwas besser gestalten... sonnst hat jemand vielleicht eine alternative Lösung für mich?
Delphi-Quellcode:
function CopyFile( sSource,sDest : String ) : Boolean;
var
aSI : TSHFileOpStruct;
szSource,
szTarget : array[0..251] of Char;
sMsg : String;
begin
FillChar(szSource, SizeOf(szSource), #0 );
FillChar(szTarget, SizeOf(szTarget), #0 );
StrPCopy(szSource, sSource);
StrPCopy(szTarget, sDest);
Result := FALSE;
try
with aSI do
begin
Wnd := FrmMain.Handle;
wFunc := FO_Copy;
pFrom := szSource;
pTo := szTarget;
fFlags := FOF_MULTIDESTFILES;
lpszProgressTitle := 'Kopieren';
end;
SHFileOperation(aSI)
except
Result := False;
end;
end;
Gruß
Paul Jr.