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