Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 19.12.2014
Сообщений: 10
1

Поиск пути к файлам по фрагменту этого пути

08.10.2015, 19:22. Просмотров 496. Ответов 1
Метки нет (Все метки)


Здравствуйте. У меня есть код, который удаляет все .txt файлы из определенной папки, конкретно из папки C:\Users\Кирилл\Desktop\66\

Мне нужно, чтобы программа сама искала на всем компьютере определенную папку, допустим это папка /Downloads/films/movie/

Другими словами, на разных компьютерах эта папка (/Downloads/films/movie/) может находиться в разных местах (на диске D ,на диске C, на диске E и тд) и программа сама должна найти полный путь к файлам .txt. В конечном итоге программа должна удалять файлы не из "C:\Users\Кирилл\Desktop\66", как это реализовано сейчас, а из той папки, где лежит "/Downloads/films/movie/"

Пытался искать ответ на форуме, но не получилось реализовать.

Пожалуйста, подскажите, как это сделать.

Если непонятно описал задачу, с радостью поясню.

Заранее спасибо.

Кликните здесь для просмотра всего текста
Delphi
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
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a : TSearchRec;
  b : Integer;
  c : Integer;
 
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  b := FindFirst('C:\Users\Кирилл\Desktop\66\*.txt', faAnyFile, a);
  while b = 0 do
  begin
    DeleteFile('C:\Users\Кирилл\Desktop\66\' + a.Name);
    b := FindNext(a);
  end;
  if c = 0 then ShowMessage('Файлы успешно удалены!')
  else ShowMessage('Повторное удаление не требуется!');
  c:=c+1;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  c := 0;
end;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2015, 19:22
Ответы с готовыми решениями:

Поиск пути к файлу по содержимому этого файла
В каталоге N:\1\2\ есть подкаталоги 20130324 20130325 20130326 и т.д. (создаются каждый день с...

Поиск пути в играх. Алгоритм поиска пути A*
В своё время долго и упорно разбирал различные алгоритмы поиска путей для различных задач. Сейчас,...

Пути к файлам
Здравствуйте! Есть проблема - как в программе задать (автоматический) путь к файлу, который...

Пути к файлам
Пока не изучаю, а даже "присматриваюсь" к С#. Как у новичка в С# возник такой вопрос... При...

1
2550 / 1835 / 397
Регистрация: 11.09.2009
Сообщений: 6,787
10.10.2015, 09:28 2
Цитата Сообщение от mzeke Посмотреть сообщение
чтобы программа сама искала на всем компьютере определенную папку,
нужно реализовать полноценный алгоритм поиска, как это реализовано в файловых менеджерах.
Поищите по форуму алгоритмы поиска. Их тут много.
Например, тема Поиск и удаление файлов
Там есть рекурсивный алгоритм поиска.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2015, 09:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Пути к файлам
Привет! Только начал осторожно приоткрывать завесу над FMX, после VCL различий достаточно много и...

ReadLine и пути к файлам
Console.Write("\nУкажите путь сохранения: "); string FilePath = Console.ReadLine();...

Пути к файлам на Висте
Здравствуйте, Извините за простой вопрос, но я никак не могу разобраться. Сделал программку на...

Не понимает пути к файлам
Есть сайт, структура его следующая. index.php в зависимости от вида командной строки открывает...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.