Kopiervorgang funktioniert nicht immer...

[Gast]

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.