Копирование файлов

[Demien]

Пишу программу для копирования файлов.
Условия: Постоянное сканирование папки-источника и при появлении нового\новых файла копирование его в другую папку.
Допустим сканирование можно пустить через TTimer. С этим проблемм нет! Сама процедура сканирования у меня тоже рабочая!
Проблемма заключается в самом копировании файлов...
Как скопировать несколько файлов поочередно, сохраняя их имена и при этом не копировать уже скопированные.....
Привожу пример имен файлов:
20081202_1_2013_081208063337
20081202_1_2023_081208063330
20081202_1_2040_081208063319
Расширение: ".upfarc" (в принципе не существенно...)
Имена файлов не имеют и какой логичаской последовательности...
Как быть?

[Квэнди]

copyfile +f1

[Demien]

Сообщение от Квэнди

copyfile +f1

Я в программировании не профи...
...только учусь.
Можно подробней?

[Квэнди]

CopyFile

The CopyFile function copies an existing file to a new file.

The CopyFileEx function provides two additional capabilities. CopyFileEx can call a specified callback function each time a portion of the copy operation is completed, and CopyFileEx can be canceled during the copy operation.


BOOL CopyFile(
LPCTSTR lpExistingFileName,
LPCTSTR lpNewFileName,
BOOL bFailIfExists
);

Parameters
lpExistingFileName
[in] Pointer to a null-terminated string that specifies the name of an existing file.
In the ANSI version of this function, the name is limited to MAX_PATH characters. To extend this limit to 32,767 wide characters, call the Unicode version of the function and prepend "\\?\" to the path. For more information, see Naming a File.

Windows Me/98/95: This string must not exceed MAX_PATH characters.
If lpExistingFileName does not exist, CopyFile fails, and GetLastError returns ERROR_FILE_NOT_FOUND.

lpNewFileName
[in] Pointer to a null-terminated string that specifies the name of the new file.
In the ANSI version of this function, the name is limited to MAX_PATH characters. To extend this limit to 32,767 wide characters, call the Unicode version of the function and prepend "\\?\" to the path. For more information, see Naming a File.

Windows Me/98/95: This string must not exceed MAX_PATH characters.
bFailIfExists
[in] If this parameter is TRUE and the new file specified by lpNewFileName already exists, the function fails. If this parameter is FALSE and the new file already exists, the function overwrites the existing file and succeeds.
Return Value
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

Remarks
Security attributes for the existing file are not copied to the new file. To copy security attributes, use the SHFileOperation function.

File attributes for the existing file are copied to the new file. For example, if an existing file has the FILE_ATTRIBUTE_READONLY file attribute, a copy created through a call to CopyFile will also have the FILE_ATTRIBUTE_READONLY file attribute. For more information, see Retrieving and Changing File Attributes.

This function fails with ERROR_ACCESS_DENIED if the destination file already exists and has the FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_READONLY attribute set.


When CopyFile is used to copy an encrypted file, it attempts to encrypt the destination file with the keys used in the encryption of the source file. If this cannot be done, this function attempts to encrypt the destination file with default keys, as in Windows 2000. If neither of these methods can be done, CopyFile fails with an ERROR_ENCRYPTION_FAILED error code.

Windows 2000: When CopyFile is used to copy an encrypted file, the function attempts to encrypt the destination file with the default keys. No attempt is made to encrypt the destination file with the keys used in the encryption of the source file. If it cannot be encrypted, CopyFile completes the copy operation without encrypting the destination file.



Symbolic link behavior—If the source file is a symbolic link, the actual file copied is the target of the symbolic link.

If the destination file already exists and is a symbolic link, the symbolic link is overwritten by the source file.


Example Code
For an example, see Retrieving and Changing File Attributes.

Requirements
Client Requires Windows Vista, Windows XP, Windows 2000 Professional, Windows NT Workstation, Windows Me, Windows 98, or Windows 95.
Server Requires Windows Server "Longhorn", Windows Server 2003, Windows 2000 Server, or Windows NT Server.
Header Declared in Winbase.h; include Windows.h.

Library Use Kernel32.lib.

DLL Requires Kernel32.dll.
Unicode Implemented as CopyFileW (Unicode) and CopyFileA (ANSI). Note that Unicode support on Windows Me/98/95 requires Microsoft Layer for Unicode.

куда уже еще подробней
Тем более если вы только начинаете, то учиться пользоваться справкой надо тем более.

[Altera]

Он не понял надпись copyfile +f1.
Demien, Квэнди хотел этим сказать, что надо выделить функцию copyfile в редакторе делфи и нажать F1. При этом вылезает справка по функции.

[KORN]

if copyfile(pchar(имя файла), Pchar(новое местоположение), true) then
// файл скопирован
else
// файл не скопирован

[Jack_Inc]

Сообщение от Demien

Пишу программу для копирования файлов.
Условия: Постоянное сканирование папки-источника и при появлении нового\новых файла копирование его в другую папку.
Допустим сканирование можно пустить через TTimer. С этим проблемм нет! Сама процедура сканирования у меня тоже рабочая!
Проблемма заключается в самом копировании файлов...
Как скопировать несколько файлов поочередно, сохраняя их имена и при этом не копировать уже скопированные.....
Привожу пример имен файлов:
20081202_1_2013_081208063337
20081202_1_2023_081208063330
20081202_1_2040_081208063319
Расширение: ".upfarc" (в принципе не существенно...)
Имена файлов не имеют и какой логичаской последовательности...
Как быть?

Слушай а у тебя проги случайно не осталось этой, а то у меня такая же задача сейчас стоит.

[bitSoft]

if not FileExists(blablabla) then CopyFile(blablabla);

[FaTaL]

Задача простая. Как то делал что-то подобное, но исходник дома. Если очень нужно, то стучи в аську на аватаре. Прям весь исходник скину или даже напишу сейчас пока есть время.

Вот наваял на скорую руку, если что не понятно, то пиши:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    procedure SearchAndCopy (SFolder, DFolder : WideString);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



{ TForm1 }

procedure TForm1.SearchAndCopy(SFolder, DFolder: WideString);
var
SR:TSearchRec;
FindRes:Integer;
N:String;
begin
findRes:=FindFirst(SFolder + '*.*', faAnyFile, SR);
  while findres = 0 do
    begin
    N:=SR.Name;
    if not FileExists (DFolder + N) then
      CopyFile (PChar (SFolder + N), PChar (DFolder + N), false);
    FindRes:=FindNext(SR);
    end;
    FindClose (SR);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  SearchAndCopy ('Папка где искать', 'Папка куда копировать');
  // Пути должны к папкам заканчиваться обязательно знаком "\"
end;

end.

[Jack_Inc]

Спаисбо