Если файл существует, то переименовать его

@Within_t · Регистрация: 20.10.2013

Студворк — интернет-сервис помощи студентам

Добрый день, уважаемые программисты)))

Есть код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  if (OpenDialog1->Execute())
   {
     AnsiString h, j;
     h=ExtractFilePath(OpenDialog1->FileName)+ExtractFileName(OpenDialog1->FileName); //источник
     j=ExtractFilePath(Application->ExeName)+"Resume\\";  //приемник
     //проверка на совпадение файла
     if(FileExists(j.c_str()+ExtractFileName(OpenDialog1->FileName)))
        {
          ShowMessage("файл уже существует");
          //НЕ ЗНАЮ КАК ТУТ НАПИСАТЬ
        }
     else
        {
          ShowMessage("можно копировать");
          if(!MoveFiles(h.c_str(), j.c_str()))
              ShowMessage("Скопировано");
          else
              ShowMessage("Ошибка");
        }
   }
}

Копирование файла в указанный каталог работает правильно.
Нужно чтобы программа переименовывала файл (если он найден). К примеру был файл "test.txt" в "test1.txt" и т.д.
Помогите)))

@Sasha · 28.01.2015, 13:16

Есть функция Rename()

Добавлено через 4 минуты
И RenameFile()

@Within_t · 28.01.2015, 14:01 **[ТС]**

Нашел тему:
действия над файлами
Где более подробно расписано...

C++
1
2
3
RenameFile(OldName,NewName);
OldName - это старое имя файла.
NewName - это новое имя файла.

Предположим в папке есть файл 1.txt. Программно я копирую в нее еще один файл с таким же именем. А если и в третий, четвертый и т.д. раз я буду копировать он по сути будет заменять эти файлы))) Как сделать чтобы NewName изменялось автоматически?

@volvo · 28.01.2015, 14:09

Within_t, копируй через SHFileOperation с флагом FOF_RENAMEONCOLLISION, тогда если файл File.txt уже есть в папке, то новый файл с тем же именем будет скопирован как File - Copy.txt, следующий - как File - Copy (2).txt

@Within_t · 28.01.2015, 14:18 **[ТС]**

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

SHFileOperation с флагом FOF_RENAMEONCOLLISION,

Вы можете написать как это выглядит, пожалуйста.)))

@volvo · 28.01.2015, 14:52

Вот так, например:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
    SHFILEOPSTRUCT sh = {0};
    wchar_t From[64] = L"D:\\test\\input.txt\0\0";
    wchar_t To[64] = L"D:\\pics\0\0";
 
    sh.hwnd = Handle;
    sh.wFunc =  FO_COPY; // Ну, или FO_MOVE, я не знаю, что там тебе нужно
    sh.pFrom = From;
    sh.pTo = To;
    sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT | FOF_RENAMEONCOLLISION;
    sh.hNameMappings = 0;
    sh.lpszProgressTitle = NULL;
 
    SHFileOperation(&sh);

@Within_t · 28.01.2015, 15:48 **[ТС]**

Не получилось.

@BRcr · 28.01.2015, 16:00

Within_t, ну, и чего? Поздравить, посочувствовать?

Или удалить пост, как не несущий никакой смысловой нагрузки? Весь теряюсь в догадках...

@volvo · 28.01.2015, 16:04

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

Не получилось.

А у меня - получилось. А себе я верю больше...

@SatanaXIII · 28.01.2015, 16:40

Within_t, чисто ради хохмы: Автоматическое изменение имени файла при записи лога. (Инкремент имени)

@Within_t · 28.01.2015, 16:55 **[ТС]**

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

А у меня - получилось. А себе я верю больше...

Я сделал необходимый фрагмент кода более проще)

@D1973 · 28.01.2015, 18:20

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

Я сделал необходимый фрагмент кода более проще)

Очень интересно увидеть.

@Within_t · 29.01.2015, 17:32 **[ТС]**

Столкнулся с проблемой копирования(((

Данный код, работает когда ему хочется (как искусственный интеллект

), для не которых названий файлов срабатывает для некоторых нет.

Может кто помочь разобраться???

Заранее благодарен.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Unit1.cpp
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  if (OpenDialog1->Execute())
   {
     AnsiString h, j, l;
     h=ExtractFilePath(OpenDialog1->FileName)+ExtractFileName(OpenDialog1->FileName); //источник
     j=ExtractFilePath(Application->ExeName)+"Resume\\";  //приемник
     l=ExtractFileExt(OpenDialog1->FileName); //расширение
     Edit1->Text=h;
     Edit2->Text=j;
     Edit3->Text=l;
 
     //проверка на совпадение файла
     if(FileExists(j.c_str()+ExtractFileName(OpenDialog1->FileName)))
        {
          ShowMessage("файл уже существует");
 
          //Поиск имени файла без расширения
          AnsiString a = ExtractFileName(OpenDialog1->FileName), v;
          int len;
          len = a.Pos(".");
          v = a.SubString(1,len-1);
          ShowMessage("Имя файла: "+v);
 
          //присвоение нового имени
          AnsiString b = v+String(rand()%150)+l;
          ShowMessage("Новое имя: "+b);
 
          //изменение имени файла
          RenameFile(h.c_str(),b.c_str());
 
          //копирование файла
          AnsiString n = ExtractFileDir(OpenDialog1->FileName)+b;
          ShowMessage("Исходное местоположение файла: "+n);
 
          if(!MoveFiles(n.c_str(), j.c_str()))
             {
               ShowMessage("Скопировано");
                                  //имя.расширение
               LabeledEdit2->Text=j+ExtractFileName(n);
             }
          else
             {
               ShowMessage("Ошибка");
             }
          return;
        }
     //----------------------------------------------------------------------
     else
        {
          ShowMessage("можно копировать");
          if(!MoveFiles(h.c_str(), j.c_str()))
             {
               ShowMessage("Скопировано");
               LabeledEdit2->Text=j+ExtractFileName(OpenDialog1->FileName);
             }
          else
             {
               ShowMessage("Ошибка");
             }
          return;
        }
   }
}

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Unit1.h
 
.............
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
int MoveFiles( AnsiString slSourceDir, AnsiString slTargetDir, bool toCopy = true )
{
SHFILEOPSTRUCT sh;
sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT | FOF_FILESONLY;
sh.wFunc = toCopy ? FO_COPY : FO_MOVE;
sh.pFrom = slSourceDir.c_str();
sh.pTo = slTargetDir.c_str();
sh.hNameMappings = NULL;
sh.lpszProgressTitle = NULL;
return SHFileOperation ( &sh );
}
#endif

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

Если файл существует, то переименовать его

Решение

Решение

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	28.01.2015, 13:16
	Сообщение было отмечено Within_t как решение Решение Есть функция Rename() Добавлено через 4 минуты И RenameFile() 0

@volvo Супер-модератор 33401 / 21511 / 8236 Регистрация: 22.10.2011 Сообщений: 36,911 Записей в блоге: 12
	28.01.2015, 14:09
	Within_t, копируй через SHFileOperation с флагом FOF_RENAMEONCOLLISION, тогда если файл File.txt уже есть в папке, то новый файл с тем же именем будет скопирован как File - Copy.txt, следующий - как File - Copy (2).txt 0

@Within_t 34 / 21 / 11 Регистрация: 20.10.2013 Сообщений: 577
	28.01.2015, 15:48 [ТС]
	Не получилось. 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	28.01.2015, 16:00
	Within_t, ну, и чего? Поздравить, посочувствовать? Или удалить пост, как не несущий никакой смысловой нагрузки? Весь теряюсь в догадках... 0

@SatanaXIII Почетный модератор 5851 / 2862 / 392 Регистрация: 01.11.2011 Сообщений: 6,906
	28.01.2015, 16:40
	Within_t, чисто ради хохмы: Автоматическое изменение имени файла при записи лога. (Инкремент имени) 0