Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 26.09.2019, 21:57
Аватар для LIONSMILE
LIONSMILE LIONSMILE вне форума
Новичок
 
Регистрация: 19.03.2018
Сообщения: 51
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Копирование файлов

Здравствуйте!

Прокопался весь день, но уже наверное туплю, так как не получается сделать копирование файлов из папки. Суть такова. Программа распаковывает из архива папку, которая содержит файлы. Имена как самой папки и так и файлов постоянно разные. Степень вложения (то есть папка в папке) тоже разная. Мне необходимо выбрать из всего количества файлов, только файлы с расширением *.doc и скопировать их в другую папку, допустим Z:\Work. Смотрел в сторону функций модуля System.IOUtils но там необходимо знать исходный (фиг с ним смогу найти) и выходные файлы, также смотрел CopyFile - тоже глухо. Файлов может быть различное количество. Пытался так, не копирует:
Код:
var
  s: string;
  Sl: TStringList;
  i: Integer;

FindFiles(ExtractFileDir(Application.ExeName) + '\Temp', '*.doc', Memo1.Lines, true);
    Sl := TStringList.Create;
    Sl.Text := Memo1.Text;
    begin
      for i := 0 to Sl.Count - 1 do
      begin
        s := Sl.Strings[i];
        copyfile(PChar(s), PChar('Z:\Work'), True);
      end;
      Sl.Free;
    end;
Что делаю не так?
Спасибо.
Ответить с цитированием
  #2  
Старый 27.09.2019, 02:18
Аватар для LIONSMILE
LIONSMILE LIONSMILE вне форума
Новичок
 
Регистрация: 19.03.2018
Сообщения: 51
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Сам спросил - сам ответил...
Код:
var
  FilesList: TStringList;
  i: Integer;
  sNew: string;
begin
  sNew := IncludeTrailingPathDelimiter('путь к папке в которую копируем');
  FilesList := TStringList.Create;
  try
    FilesList.LoadFromFile('имя файла со списком.txt'); //Загружаем список файлов.
    for i := 0 to FilesList.Count - 1 do
    begin
      if not FileExists(FilesList[i]) then 
        Continue; //Минуем не существующие файлы
      if not CopyFile(PChar(FilesList[i]), PChar(sNew + ExtractFileName(FilesList[i])), False) then //Путь назначения + старое имя
        ShowMessage('Ошибка при копировании файла: ' + FilesList[i]);
    end;
  finally
    FilesList.Free;
  end;
end;  
Ответить с цитированием
Этот пользователь сказал Спасибо LIONSMILE за это полезное сообщение:
Guaho (27.09.2019)
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:41.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter