Ihc kopiere mit
Delphi-Quellcode:
function CopyDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir)
end;
Result := (0 = ShFileOperation(fos));
end;
Ein Laufwerk zu einem anderen.
Also mit
Zitat:
Copydir (combobox1.text, edit1.text);
Das funzt ned. Es kommt eine Meldung:
"Quelldatei kann nicht gelesen werden"
Wie behebe ich dieses Problem?
Und wie kann ich den Fortschritt in einer Progressbar anzeigen?
Gruss MiniKeks
[edit=Luckie]Wer packt denn Code in Zitat-Tags? Mfg, Luckie[/edit]