данный код копирут файлы и заменяет их (пез предупреждения)
вопрос: как сделать чтобы при копирование файл дописывался, допустим в первоночальном файле было значение 10 а вфайле который копировался 15 и в итоге надо чтобы содержимое этих файлов ссумировалось.

procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);
var
shellinfo: TSHFileOpStructA;
begin
with shellinfo do
begin
wnd := Application.Handle;
wFunc := Flags;
pFrom := PChar(fromFile);
pTo := PChar(toFile);
fFlags := FOF_NOCONFIRMATION;
end;
SHFileOperation(shellinfo);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
begin
ShellFileOperation('C:\Program Files\d\*.txt', '\\Cs_server\C', FO_COPY);
Form1.Timer1.Enabled:=true;

заранее СПАСИБО

http://forum.vingrad.ru/index.php?act=ST&f=32&t=1924

а пример можно - пожайлуста

Нет lider07 через Шэл копировать не надо, да и вообще сним лучше не связывайся.

Код

Function FullDirectoryCopy(SourceDir, TargetDir:String; StopIfNotAllCopied, OverWriteFiles:Boolean):Boolean; Var SR:TSearchRec; function zCreateDir(const Dir: string): Boolean; begin   Result := Windows.CreateDirectory(PChar(Dir), nil); end;  Function LocalCopy:Boolean;  begin    Result := True;    IF SR.Attr = faDirectory then    begin      IF (SR.NAME<>'.') and (SR.NAME<>'..') and (SR.NAME<>'') then        Result := FullDirectoryCopy(SourceDir+SR.Name, TargetDir+SR.NAME, StopIfNotAllCopied, OverWriteFiles)    end    else      IF not (not OverWriteFiles and FileExists(TargetDir+SR.Name)) then        Result := CopyFile( Pchar(SourceDir+SR.Name), Pchar(TargetDir+SR.Name), False)      else Result := True;  end;  Procedure CloseSR;  begin    try SysUtils.FindClose(SR) except end;  end; begin  Result := False;  SourceDir := IncludeTrailingBackslash (SourceDir);  TargetDir := IncludeTrailingBackslash(TargetDir);  if not FileOrDirExists(TargetDir) then  IF not zCreateDir(TargetDir) then Exit; //  IF not DirectoryExists(SourceDir) then Exit; //  CloseSR;             ///  IF FindFirst(ExcludeTrailingBackslash(SourceDir+'\*.*'), faDirectory, SR) = 0 then  begin    Result := LocalCopy;    IF Not Result then      IF StopIfNotAllCopied then begin CloseSR; Exit; end;    while FindNext(SR) = 0 do    begin      Result := LocalCopy;      IF Not Result then        IF StopIfNotAllCopied then begin CloseSR; Exit; end;    end;    CloseSR;  end;  CloseSR; end;

0FF - по-моему, lider07 хотел что-то другое...

lider07 я не совсем понял суть вопроса, можешь привести примерчик того, что тебе надо (до и после) ?

p0s0l
Ему нужно, чтобы было так: открыть файл; прочитать значение, находящееся в нем; прибавить к этому значению другое; сохранить все в этом файле.

Файл состоит только из одного числа ?

Цитата(p0s0l @ 10.8.2003, 13:23)

0FF - по-моему, lider07 хотел что-то другое...

Ops! Недочитал топик.