Функция CopyFile() выполняет копирование файла исходного файла в заданную директорию.
BOOL CopyFile(LPCTSTR lpExistingFileName, LPCTSTR lpNewFileName, BOOL bFailIfExists);
lpExistingFileName | Зачение прямого или относительного пути к исходному файлу. |
lpNewFileName | Значение прямого или относительного пути для нового файла. |
bFailIfExists | Логический параметр, определяющий должна ли функция перезаписать файл копируемый файл, если файл с заданным именем нового файла уже имеется. Если указано значение False, то файл будет перезаписан заново, даже если файл с заданным именем уже есть. При этом в результате своего выполнения, функция всегда будет возвращать значение True. Если bFailIfExists = True, в случае удачного копирования функция вернет значения True. Если же файл с новым именем уже есть, или при возникновении другой ошибки, при которой файл не будет скопирован, функция вернет значение False. |
// Копирование файла с указанием полного пути к файлу.
// Файл будет перезаписан, даже если файл с новым именем уже есть в этой папке.
CopyFile('c:/myfolder/myfile.txt', 'c:/myfolder/newfile.txt', false);
// Копирование файла с указанием относительного пути.
// Программа будет искать исходный файл в той же папке, откуда запущена программа.
// Новый файл будет создан там же.
// Файл будет перезаписан, даже если файл с новым именем уже есть в этой папке.
CopyFile('myfile.txt', 'newfile.txt', false);
// Копирование файла с выводом результатов ее выполнения.
// Если файл с заданным именем уже есть, копирование не выполняется.
if CopyFile('myfile.txt', 'newfile.txt', true) then
ShowMessage('Файл успешно скопирован.')
else
ShowMessage('Ошибка: файл не был скопирован.');
// Путь к исходному файлу задается в поле Edit.
// Т.к. параметр не принимает стандартного строкового значения String,
// необходимо сделать приведение типа к PChar.
CopyFile(PChar(edt1.Text), 'newfile.txt', false);
Процедура MkDir в Delphi, описание и примеры
Выравнивание текста в ячейке Delphi StringGrid
Создание и работа с текстовыми файлами в Delphi
нович
- 09 февраля 2023, 10:17 ↓Павел
- 09 сентября 2021, 09:43 ↓Самая полезная информация из всей.
Windows.