Копирование файлов по дням недели!!!

[SUPERGREEN_SENSO]

программа, которая автоматически заменяет файл в какой либо папке файлами с таким же названием, но другим содержанием по дням недели, например в понедельник копируется такой файл, во вторник следующий должна работать автоматически!!

[Пепел Феникса]

наработки.
или конкретные вопросы.

[SUPERGREEN_SENSO]

именно конкретная программа нужна!!!! Пытался сам делать!!! Но почему то выходят запарки на путях к файлу!!! + прога должна будет работать круглосуточно и нужно будет что б она сама обновляла файл!!!
просто человеку нужна срочно!!
Работать должна так понедельник она берёт файл из папки понедельник с именем к примеру 1.бла и заменяет им файл с таким же именем но находящийся другой папке!!! Так должна делать в течении недели без участия юзверя!!!

[Alex Cones]

Тогда Вам в раздел "Фриланс".

[JTG]

Зачем так мудрить, можно обойтись планировщиком

D:\Program Files\BB>at 00:00 /every:monday "copy /b /y C:\from\monday\1.bla C:\to\1.bla"
Добавлена новая задача с кодом 1

D:\Program Files\BB>at 00:00 /every:tuesday "copy /b /y C:\from\tuesday\1.bla C:\to\1.bla"
Добавлена новая задача с кодом 2

D:\Program Files\BB>at
Статус Код  Дата                    Время         Командная строка
------------------------------------------------------------------------------------------------
        1   Каждый M                0:00          "copy /b /y C:\from\monday\1.bla C:\to\1.bla"
        2   Каждый T                0:00          "copy /b /y C:\from\tuesday\1.bla C:\to\1.bla"

[ОДИНОЧЕСТВО В СЕТИ]

программа, которая автоматически заменяет файл в какой либо папке файлами с таким же названием, но другим содержанием по дням недели

а в чем сложность?

var
  Form1: TForm1;
  s:string;         // переменная для хранения дня недели
  f:word ;         // флаг
  k:string;       //  переменная для получения дня недели
  path:string;   // что копируем
  path2:string; // куда копируем
implementation

{$R *.dfm}
{ прога практически готова осталось:
   а) если ваши желания совпадают с возможностями - доделать
   б) если не совпадают -обратиться во фриланс - там вам 100% помогут
   реализовать все ваши желания!
   p.s Ищущий да обрящет!!!}
// процедура копирования файла !!!
procedure FileCopy(const SourceFileName, TargetFileName: string);
var
  S, T : TFileStream;
begin
  S := TFileStream.Create(sourcefilename, fmOpenRead );
  try
    T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
    try
      T.CopyFrom(S, S.Size ) ;
      FileSetDate(T.Handle, FileGetDate(S.Handle));
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
end;

// процедура таймера!!!
procedure TForm1.tmr1Timer(Sender: TObject);

begin
k:=FormatDateTime('dddd',date); // определяем день недели
 if (k<>s) // проверка на совпадение дня недели
  or ((k=s)and (f=0)) //проверка если "понедельник" и не копировали
                       // нужна если запуск проги осуществляется в понедельник
 then
   begin
     f:=1; // поднимаем "флаг"
     s:=k; // присваиваем текущии день недели
     GetDir(0,Path);// получаем папку где находится наша прога
     path2:=path+'\test\1.txt';// папка куда копировать
     path:=path+'\'+s+'\1.txt'; // папка \день недели\имя файла
     if FileExists(path) then       // если файлег path существует копируем
       FileCopy(path, path2)   ;
 end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
s:='понедельник'; // присваиваем S значение понедельник
                 // чтобы было с чем сравнивать
f:=0;           // флаг 0 потому что еще ничего не копировали
tmr1.Interval:=3600000; // интервал таймера 1 час
tmr1.Enabled:=True;     // запускаем таймер
end;