Копирование файлов и диалог выбора папки с кнопкой "Создать папку"

@Bair107 · Регистрация: 26.11.2014

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

Задача довольно популярная, но на просторах интернета лежат примеры для старых версий Builder, которые у меня, в силу недостатка знаний, никак не получается подружить с новыми (у меня xe5). Может лежат на компьютере у кого примеры диалога выбора папок и пример копирования файлов? Буду очень благодарен.

Из перепробованного:
1)

C++
1
CopyFile(PChar("c:\\test.txt"),PChar( "d:\\test.txt"), true);

2)

C++
1
2
3
4
5
6
7
8
9
10
11
12
// Для того чтобы скопировать файлы напишите следующий код:
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 );
}

C++
1
2
3
4
5
6
7
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//copy all from program files
if(!MoveFiles("c:\\program files\\*.*", "c:\\temp"))
ShowMessage("Ok");
else ShowMessage("No");
}

3)

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    if (SelectDirectory("Выберите каталог", "",Path))   //Path - папка
    {
        Path = Path + "\\";
        Form1->Caption = Path;
    }
}
Path типа AnsiString

И многие другие, где кода на пару страниц. Где компилируется и просто не копирует. Где то скомпилировать не получается, где то с типами проблема.

Завтра буду снова искать решение, а пока надеюсь, что у кого то найдется подходящий код. Заранее, большое спасибо!

Добавлено через 3 часа 3 минуты
Не спалось, с копированием разобрался

C++
1
2
3
4
String DiskLetter =ExtractFilePath(Application->ExeName);
String FileName = "base";
String FullPath = DiskLetter + FileName + ".mdb";
CopyFile(PChar(WideString(FullPath)), PChar(WideString("путь,куда сохранить")) , true);

С конвертацией переменных порнография какая то, но работает, если кто предложит более простой способ, буду очень рад))

С диалогом выбора папки по прежнему прошу помощи. Заранее, большое спасибо!

Добавлено через 5 часов 46 минут
Нашел такой вариант, но на выходе получаю лишь букву диска.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 char FileName[MAX_PATH+1];
    BROWSEINFO bi;
    memcpy(FileName, "C:\\", 3);
    bi.hwndOwner = 0;
    bi.pidlRoot = NULL;
    bi.pszDisplayName = PChar(FileName);
    bi.lpszTitle = PChar("Заголовок");
    bi.ulFlags = BIF_STATUSTEXT
              |BIF_BROWSEFORCOMPUTER
              |BIF_EDITBOX
              |BIF_NEWDIALOGSTYLE
              /*|BIF_NONEWFOLDERBUTTON*/
              |BIF_USENEWUI;
              //|BIF_BROWSEINCLUDEFILES;
    bi.lpfn = NULL;
    SHGetPathFromIDList(SHBrowseForFolder(&bi),PChar(FileName));
    Label1->Caption=FileName;

Добавлено через 4 минуты
еще без кнопки создать папку, но все равно выдает лишь букву диска

C++
1
2
3
4
5
6
7
8
9
10
11
12
 BROWSEINFO dir;
char folder[MAX_PATH];
LPITEMIDLIST item;
memset(&dir,0,sizeof(BROWSEINFO));
dir.hwndOwner = Handle;
dir.pszDisplayName = PChar(folder);
dir.lpszTitle = PChar("Выберите путь");
item = SHBrowseForFolder(&dir);
char p[MAX_PATH];
SHGetPathFromIDList(item,PChar(p));
if(p[0] != '\0')
Label1->Caption = p;

Добавлено через 18 минут
вот этот вроде как даже выводит путь, но букву диска выводит на китайском, а все остальное нормально)))))

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
BOOL FGetDirectory(LPTSTR szDir)
{ BOOL fRet;
   TCHAR szPath[MAX_PATH];
   LPITEMIDLIST pidl;
   LPITEMIDLIST pidlRoot;
   LPMALLOC lpMalloc;
   BROWSEINFO bi =
       {
       NULL,
       NULL,
       szPath,
       PChar("Выберите папку"),
       BIF_RETURNONLYFSDIRS,
       NULL,
       0L,
       0
      };
   if (0 != SHGetSpecialFolderLocation(HWND_DESKTOP, CSIDL_DRIVES, &pidlRoot))
     return FALSE;
   if (NULL == pidlRoot)
     return FALSE;
   bi.pidlRoot = pidlRoot;
   pidl = SHBrowseForFolder(&bi);
   if (NULL != pidl)
     fRet = SHGetPathFromIDList(pidl, szDir);
   else
     fRet = FALSE; // Get the shell's allocator to free PIDLs
   if (!SHGetMalloc(&lpMalloc) && (NULL != lpMalloc))
   {
     if (NULL != pidlRoot)
     {
       lpMalloc->Free(pidlRoot);
     }
     if (NULL != pidl)
     {
       lpMalloc->Free(pidl);
     }
lpMalloc->Release();
}
return fRet;
}
 
LPTSTR PszAlloc(int cch)
{
return (LPTSTR) LocalAlloc(LMEM_FIXED, sizeof(TCHAR) * (cch+1));
}
 
bool PszDeAlloc(HLOCAL mem_ptr)
{
return (LocalFree(mem_ptr)==NULL) ? true : false;
}
//вызов
LPTSTR fname;
fname=PszAlloc(250);
FGetDirectory(fname);
PszDeAlloc((HLOCAL)fname);
Label1->Caption=fname;

ээххх..веселое утро))))

Добавлено через 14 часов 39 минут
ну хоть бы книжки кто посоветовал почитать что ли, матчасть там учить, в гугл послать, а то совсем как то глухо)))

@BRcr · 16.12.2014, 00:07

Это все называется тыкать пальцем в небо. В данном случае - тыкать довольно активно...

Нужен диалог выбора файлов? Их есть у нас - TOpenDialog, TFileOpenDialog.
Нужен простой способ работы с файлами? Присмотрись к TDirectory, TFile и TPath.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	16.12.2014, 00:07
	Это все называется тыкать пальцем в небо. В данном случае - тыкать довольно активно... Нужен диалог выбора файлов? Их есть у нас - TOpenDialog, TFileOpenDialog. Нужен простой способ работы с файлами? Присмотрись к TDirectory, TFile и TPath. 1