Namenslänge bei Ordner kopieren?

[TheMiller]

Hy,

habe ein kleines Programm geschrieben, dass Ordner von a nach b kopiert. Ich habe aber bemerkt, dass er nur einige Ordner kopiert und bei einigen diese Meldung ausspuckt:

Datei kann nicht kopiert werden: Die Quelldatei oder vom Datenträger kann nicht gelesen werden Es liegt nicht an den anttribute. Habe einen Ordner (DJ Smurf) kopieren wollen. Ging. Habe ihn in DJ Smurfeeeeeeeee umbenannt, ging nicht.

Ich benutze folgenden Code

Delphi-Quellcode:

function SHCopyFile(Handle: THandle; szSource, szDestination: TFileName): Boolean;
var
  ShellFileOperation: TSHFileOpStruct;
begin
  Result := True;
  try
    with ShellFileOperation do
    begin
      Wnd := Handle;
      wFunc := FO_COPY;
      pFrom := PChar(szSource);
      pTo := PChar(szDestination);
      // fFlags := FOF_FILESONLY OR FOF_NOCONFIRMMKDIR FOF_SIMPLEPROGRESS;
      fFlags := FOF_NOCONFIRMMKDIR;
      lpszProgressTitle := 'Dateien kopieren ...';
    end;
    SHFileOperation(ShellFileOperation);
  except
    Result := False;
  end;
end;

und habe diesen Aufruf:

Delphi-Quellcode:

filedest:=ini.ReadString('SCC','Destination',Text);
SHCopyFile(Handle, folder3, filedest);

Wer kann mir helfen????


/edit: Ich habs getestet: Ich kann nicht mehr als 11 Zeichen benutzen... Wer kennt Lösung???

Danke im Vorraus