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

@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.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

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

Опции темы