Hi, zusammen
ich habe volgendes problemm.
ich möchte ein verzeichniss ('\\server1\docus\mydocu'), in ('\\server1\docus\mydocu_1') umbenennen.
ich habe schon mit dem da (s. unten) ausprobiert, aber klappt ja nicht (ich vermute, weil kein laufverk eingegeben ist)
Wer kann mir helfen. Kann man selbstverständlich mit MkDir, moov und del das umgehen, aber das ist nicht schön.
Danke.
Delphi-Quellcode:
uses
ShellApi;
procedure RenameDir(DirFrom, DirTo: string);
var
shellinfo: TSHFileOpStruct;
begin
with shellinfo do
begin
Wnd := 0;
wFunc := FO_RENAME;
pFrom := PChar(DirFrom);
pTo := PChar(DirTo);
fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
FOF_SILENT or FOF_NOCONFIRMATION;
end;
SHFileOperation(shellinfo);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RenameDir('\\server1\docus\mydocu', '\\server1\docus\mydocu_1');
end;
[edit=alcaeus]Delphi-Tags eingefuegt und ueberfluessige Fragezeichen aus dem Titel entfernt. Mfg, alcaeus[/edit]