Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.11.2010, 19:21   #1
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
Вопрос Копирование файлов из нескольких директорий в одну

Добрый вечер! Нужна ваша помощь в решении вопроса. Ситуация: Есть 4 директории 1,2,3 и 4 и есть две папки: 1-1 и 1-2. Задача: нужно содержимое директории 1 скопировать в директорию 1-1, а содержимое директорий 2,3 и 4, одновременно, скопировать в директорию 1-2. С помощью чего и как такое можно сделать в таймере? Заранее спасибо.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 22.11.2010, 19:39   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

А почему именно в таймере?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.11.2010, 19:42   #3
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

Потому что должно с заданным интервалом проверяться содержимое папок на наличие новых файлов
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 22.11.2010, 20:13   #4
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Что подразумевается под "одновременно".
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 22.11.2010, 20:22   #5
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

Это значит из трех папок, расположенных по разным путям. Хотя бы подскажите как указать в CopyFile, чтобы копировалось содержимое. Ведь если я так напишу:
Код:
CopyFile('C:\Users\Admin\Desktop\Папка_1','C:\Users\Admin\Desktop\Папка_2',True);
то у меня не скопируется содержимое папки 1 в папку 2
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 22.11.2010, 20:27   #6
psycho-coder
Участник клуба
 
Аватар для psycho-coder
 
Регистрация: 06.04.2009
Сообщений: 1,524
По умолчанию

Сначала, нужно получить содержимое папок (допустим в массив, своеобразное дерево папок), а потом копировать.
psycho-coder вне форума Ответить с цитированием
Старый 22.11.2010, 20:34   #7
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

Ну, я могу получить содержимое в ListBox с полными путями, но как потом оттуда передать в CopyFile что копировать?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 23.11.2010, 12:24   #8
psycho-coder
Участник клуба
 
Аватар для psycho-coder
 
Регистрация: 06.04.2009
Сообщений: 1,524
По умолчанию

Ну как то так. Код не проверял.
Код:
var
  i: Integer;
  MyPath: String;
begin
  MyPath := 'C:\Windows';
  for i := 0 to ListBox1.Items.Count - 1 do
    CopyFile(PChar(ListBox1.Items[i]), PChar(MyPath));
end;
psycho-coder вне форума Ответить с цитированием
Старый 23.11.2010, 13:19   #9
wm_leviathan
Форумчанин
 
Аватар для wm_leviathan
 
Регистрация: 17.02.2010
Сообщений: 399
По умолчанию

Цитата:
Сообщение от artemavd Посмотреть сообщение
Потому что должно с заданным интервалом проверяться содержимое папок на наличие новых файлов
а если проверять наличие файлов в отдельном потоке и функцией ReadDirectoryChangesW(Dir, @Notify, SizeOf(TFileNotifyInformation),
False, Filter, @BytesReturned, nil, nil)? я ей пользовался очень удобно, даст знать когда в папке появится новый файл и не только.
wm_leviathan вне форума Ответить с цитированием
Старый 23.11.2010, 13:27   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

А вот в этом тебе, Артем, может помочь:
http://www.delphiworld.narod.ru/base...ith_files.html
Или банальщина: http://www.delphiworld.narod.ru/base/copy_dirs.html
Но лучше первое.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Из нескольких ячеек в одну (слияние) kzld Microsoft Office Excel 4 06.10.2010 10:29
Объединение нескольких БД в одну БД GhostBZ БД в Delphi 4 01.09.2009 09:00
Копирование нескольких файлов с помощью ShellAPI Paul Hindenburg Общие вопросы Delphi 10 13.07.2009 12:21
Сведение нескольких таблиц в одну Sega Microsoft Office Excel 3 05.08.2008 15:21
Копирование нескольких файлов + ProgressBar AngelOfDeath Общие вопросы Delphi 4 28.05.2008 14:57