1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

VAR datei : tSearchRec;
    erfolg : Boolean;
begin
  erfolg:=(FindFirst(quellverzeichnis+'\*.txt',faAnyFile,datei)=0);
  while erfolg do
  begin
    CopyFileTo(quellverzeichnis+'\'+datei.name,zielverzeichnis+'\'+datei.name);
    DeleteFile(quellverzeichnis+'\'+datei.name);
    erfolg := (FindNext(datei)=0);
  end;
  FindClose(datei);
end;					

1:
2:

IF MoveFile(pChar('C:\Autoexec.Bak'), pChar('C:\tmp\Autoexec.Bak')) THEN
  ShowMessage('Datei erfolgreich verschoben');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

function SHFileMove(Owner:Integer; FromFile, ToFile:string; Flags: word):boolean;
  function ConvertFile(FileName:string):PChar;
  var NewFile:string;
  begin
    NewFile:=Filename;
    while pos(';', NewFile)>0  do
       NewFile[pos(';', NewFile)]:=#0;
    NewFile:=NewFile+#0+#0;
    Result:=PChar(NewFile);
  end;
const Aborted:boolean=true;
var Struct: TSHFileOpStructA;
begin
  with Struct do begin
    wnd:=Owner;
    wFunc:=FO_Move;
    PFrom:=ConvertFile(FromFile);
    pTo:=PChar(ToFile);
    fFlags:=Flags;
    fAnyOperationsAborted:=Aborted;
    hNameMappings:=nil;
    lpszProgressTitle:=nil;
  end;
  Result:=(SHFileOperationA(Struct)=0) and (not aborted);
end;					

1:

SHFileMove(Handle, 'c:\Quellordner\*.txt', 'c:\Zielordner', FOF_FILESONLY or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or FOF_SILENT);					

1:

SHFileMove(Handle, 'c:\Quellordner\*.txt;c:\Quellordner\MoveMeFolder', 'c:\Zielordner', FOF_FILESONLY or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or FOF_SILENT);