Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 30.09.2013
Сообщений: 42
1

Переименовать файл автоматически при копировании

30.07.2014, 23:41. Показов 1826. Ответов 2
Метки нет (Все метки)

Доброго времени суток. Есть программа, которая по списку, находящемуся в ListBox копирует файлы в выбранную пользователем папку. В списке файлов могут находиться файлы с одинаковыми именами, но находящиеся в разных директориях. Как реализовать такой алгоритм: Если файл уже существует в целевой папке, то при копировании добавить к имени файла символ "1"? Копирование реализовано так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button2Click(Sender: TObject);
var
  i   : integer;
  dir : string;
begin
  if SelectDirectory ('Выберите папку', 'D:\,C:\', dir) then
    begin
      ProgressBar1.Min:=0;
      ProgressBar1.Max:=ListBox1.Items.Count-1;
      for i := 0 to ListBox1.Items.Count-1 do
        begin
          if FileExists (ListBox1.Items.Strings[i]) then
            CopyFile (PChar(ListBox1.Items.Strings[i]), PChar(dir + '\' + ExtractFileName (ListBox1.Items.Strings[i])), false);
          ProgressBar1.Position:=i;
        end;
    end;
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.07.2014, 23:41
Ответы с готовыми решениями:

При копировании файлов не получается переименовать их
procedure CopyFiles(const FromFolder: string; const ToFolder: string); var Fo: TSHFileOpStruct;...

Переименовать файлы при копировании Delphi XE
Код, который по списку, находящемуся в ListBox копирует файлы в выбранную пользователем папку. В...

Переименовать файл
Скажите пжл как программно переименовать файл с форматом ехе (project1.exe) в файл с форматом txt...

Переименовать файл
Народ не подскажете, как не особо парясь переименовывать файлы и директории, способ прочитать и...

2
Эксперт Pascal/Delphi
4858 / 2735 / 845
Регистрация: 04.10.2012
Сообщений: 9,972
31.07.2014, 00:04 2
saintninja, см.При копировании файлов не получается переименовать их (п. #5)
1
3 / 3 / 0
Регистрация: 30.01.2018
Сообщений: 312
03.06.2018, 23:35 3
droider, Интересная статья по ссылке. Очень познавательно!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2018, 23:35

Переименовать существующий файл
помогите пожалуйста с программой: -необходимо скопировать все файлы из какой либо директории в...

Не могу переименовать файл
По нажатию клавиши из одного файла переписывается информация в другой кроме одной строки. Но при...

Переименовать файл без api
Как переименовать файл исходя из возможностей делфи, без использования api

Как переименовать и одновременно скопировать файл
Как переименовать и одновременно скопировать файл в определенную директорию?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru