versuch mal
Delphi-Quellcode:
MyCopy('c:\source_path\*.*', 'c:\dest_path');
oder
MyCopy('c:\source_path\*.*', 'c:\dest_path\');
MyCopy('c:\source_path', 'c:\dest_path');
kopiert eigentlich das Verzeichnis source_path nach dest_path und nicht die Dateien in source_path,
womit ich eigentlich immer das zweite Ergebnis erwartet hätte.
[edit]
och menno
[add]
Häng bitte an das Ziel auch noch die zweite #0 an >
PChar(Ziel + #0)
.
Das sind beides Listen, also müssen Beide mit #0#0 abgeschlossen werden.
[add]
Delphi-Quellcode:
function MyCopy(Quelle, Ziel: string): Boolean;
var
fos: TSHFileOpStruct;
begin
Quelle := IncludeTrailingPathDelimiter(Quelle) + '*.*'#0;
Ziel := IncludeTrailingPathDelimiter(Ziel) + #0; // oder Ziel := ExcludeTrailingPathDelimiter(Ziel) + #0;
...
pFrom := PChar(Quelle);
pTo := PChar(Ziel);