Einzelnen Beitrag anzeigen

Patrick

Registriert seit: 15. Sep 2003
184 Beiträge
 
Delphi 2010 Professional
 
#1

"Ordner erstellen?" unterdrücken

  Alt 22. Dez 2004, 12:16
Hallo,

Ich kopiere mit der unteren Funktion Dateien, Wenn ich jetzt eine Datei kopiere, dessen Zielverzeichnis nicht existiert werde ich gefragt, ob ich es erstellen möchte. Er soll es aber einfach erstellen, ohne zu fragen, wie mache ich das?

Eigentlich sollte doch "FOF_NOCONFIRMATION" diese Meldung unterdrücken, oder!?

Delphi-Quellcode:
function CopyFileEx(const ASource, ADest: String): boolean;
var sh : TSHFileOpStruct;
begin
  sh.Wnd := Application.Handle;
  sh.wFunc := FO_COPY;
  // String muss mit #0#0 Terminiert werden, um das Listenende zu setzen
  sh.pFrom := PChar(ASource + #0);
  sh.pTo := PChar(ADest + #0);
  sh.fFlags := FOF_NOCONFIRMATION or FOF_MULTIDESTFILES;
  Result:=ShFileOperation(sh)=0;
end;
Danke
Genieße jede Minute deines Lebens, denn sie wird nicht wieder kommen.
  Mit Zitat antworten Zitat