[yasenkov]

Код:

var
 p,pk: string; 
 
  begin
   p:='C:\file.dbf';    //Исходный файл
   p:='C:\123\' ;      //Место куда необходимо скопировать


  (тут должен быть код о котором я даже неподазреваю =))
  end;

Заранее спасибо

[NumLock]

http://googletohelp.ru/?q=%D0%BA%D0%...+%D0%B2+delphi

1-ая ссылка:
http://delphiexpert.ru/view_lesson.php?id=45

Код:

CopyFile(Pchar('D:\index.txt'), Pchar('D:\1\1.txt'), true)

[yasenkov]

Код:

p,pk: string; 

 begin
 p:='C:\file.dbf'; //Исходный файл
 pk:='C:\123\' ; //Место куда необходимо скопировать

CopyFile(Pchar(p), Pchar(pk), true); 
 
end;

в папке 123 ничего не появляется , просто глухо

[yasenkov]

точнее вот код

Код:

Table3.Active:=false;
dir:=MyDir+'\db\export.dbf';
dirk:=MyDir+'\Выгрузка\export.dbf';
CopyFile(PChar(dir),PChar(dirk), true);
Table3.Active:=true;

[MiraLaklamon]

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

точнее вот код

Table3.Active:=false;
dir:=MyDir+'\db\export.dbf';
dirk:=MyDir+'\Выгрузка\export.dbf';
CopyFile(PChar(dir),PChar(dirk), true);
Table3.Active:=true;

Попробуй такой код:

Код:

var
  e: LongWord;
  dir, dirk: AnsiString;
...
begin
...
  dir:=MyDir+'\db\export.dbf';
  dirk:=MyDir+'\Выгрузка\export.dbf';

  e:=CopyFileA(PChar(dir), PChar(dirk), True);
  if e=NO_ERROR then
  begin
    MessageDlg('Файл успешно скопирован', mtInformation, [mbOK], 0);
  end else
  begin
    MessageDlg('При копировании ошибка: "'+SysErrorMessage(e)+'"', mtInformation, [mbOK], 0);
  end;
...
end;

[M.A.D.M.A.N.]

О, Боже...

[NumLock]

просьба удалить сообшение

[NumLock]

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

Попробуй такой код

не стоит пробовать:

BOOL CopyFile(
LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);

SysErrorMessage(GetLastError) лучше

[MiraLaklamon]

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

не стоит пробовать:

SysErrorMessage(GetLastError) лучше

Совершенно верно! Моя ошибка
Ну тогда так:

Код:

var
  dir, dirk: AnsiString;
...
begin
...
  dir:=MyDir+'\db\export.dbf';
  dirk:=MyDir+'\Выгрузка\export.dbf';

  if CopyFileA(PChar(dir), PChar(dirk), True) then
  begin
    MessageDlg('Файл успешно скопирован', mtInformation, [mbOK], 0);
  end else
  begin
    MessageDlg('При копировании ошибка: "'+SysErrorMessage(GetLastError)+'"', mtInformation, [mbOK], 0);
  end;
...
end;

[yasenkov]

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

Попробуй такой код:

Код:

var
  e: LongWord;

...
begin
...
  

  e:=CopyFileA(PChar(dir), PChar(dirk), True);

end;

[Error] Unit1.pas(501): Incompatible types: 'Cardinal' and 'LongBool'

[M.A.D.M.A.N.]

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

[Error] Unit1.pas(501): Incompatible types: 'Cardinal' and 'LongBool'

Ну так ф-я возвращает булевское значение.

[MiraLaklamon]

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

[Error] Unit1.pas(501): Incompatible types: 'Cardinal' and 'LongBool'

Пробуй мой второй (исправленный) вариант.

[yasenkov]

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

Пробуй мой второй (исправленный) вариант.

MiraLaklamon Спасибо огромное !!!

[Rick]

Здрасьте. Сапсем забросил дельфи, и как следствие - забыл даже азы
Вопрос: в каком месте мне объявлять свой тип данных? До Иплиментейшн?

[robt]

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