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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 path1, path2: String;
 F: File;
 FToMove: Integer;
 SearchRec : TSearchRec;
 Con: TIniFile;
begin
 Con := TIniFile.Create('.\Sharbuster.con');
Dir1 := Con.ReadString('Sharebuster-conf', 'StartVerzeichnis', '');
Dir2 := Con.ReadString('Sharebuster-conf', 'ZeilVerzeichnis', '');
Con.Free;
 AssignFile(F, '.\Sharbuster.con');
  if (not fileexists('.\Sharbuster.con')) then
   begin
    Timer1.Enabled := false;
    ShowMessage('Kein Start/Ziel Verzeichnis ausgewählt! Bitte Setzen Sie ein Start und Zeil Verzeichnis!');
   end
   else
    begin
     Path1 := Dir1;
     Path2 := Dir2;
     FToMove := FindFirst(Path1, faAnyFile, SearchRec);
     while FToMove = 0 do
      begin
        if (copy(SearchRec.Name, 1, 1) <> '.') then
         begin
           if (SearchRec.Attr <> 0) and (faDirectory <> 0) then
            begin
          MoveFile(PChar('N:\Programme\eMule\Incoming\'+ SearchRec.Name), Pchar('C:\Temp\'+SearchRec.Name));
          FToMove := Findnext(SearchRec);
           end;
         end;
      end;
   end;
  FindClose(SearchRec);
end;					

1:

Con := TIniFile.Create('.\Sharbuster.con');