VPF::Сканирование всех папок и файлов

GELEAF

Дата 26.8.2007, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 11.3.2006

Репутация: нет
Всего: нет

Надо сделать точную копию всех файлов и папок на локальном компе но шоб их размер был равен нулю.
Например у меня есть папка под названием 'first' которая весит три метра, а в этой папки находятся два файла по метру и одна папка которая весит тоже один метр...так вот надо шоб прога сделала полную копию этих файлов но тока шоб они не занималь по метру, тоесть шоб она создавала пучстые файлы и паки но штобы структура файлов и папок было так же как и у оригинала

EvilsInterrupt

Дата 26.8.2007, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Executables research

Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

Репутация: нет
Всего: 9

GELEAF, Э... вам слепок файловой системы начиная с указанной юзером папки надо?

--------------------

про реверсинг, вроде чтото даже интересно

GELEAF

Дата 26.8.2007, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 11.3.2006

Репутация: нет
Всего: нет

Цитата(EvilsInterrupt @ 26.8.2007, 20:20)

GELEAF, Э... вам слепок файловой системы начиная с указанной юзером папки надо?

Ага

December

Дата 26.8.2007, 20:38 (ссылка)

(голосов:1)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: нет
Всего: 57

а в чём проблемы - рекурсивно пройтись по всем папкам и обработать имена? Тема стара как мир

--------------------

Для друзей с винграда - скидки на разработку сайтов

GELEAF

Дата 26.8.2007, 23:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 11.3.2006

Репутация: нет
Всего: нет

Ладно...будем другим путем решать задачу...скажите мне пожалуста как из указаной папки выдрать имена папок и файлов которые находятся в этой папке...если можно пример...тока в обичный ТМемо)

December

Дата 27.8.2007, 00:08 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: нет
Всего: 57

В DRKB!

--------------------

Для друзей с винграда - скидки на разработку сайтов

Sanchezzz

Дата 27.8.2007, 00:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60

Код


procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
begin
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then begin
        List.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ScanDir('c:\TEMP', '', MEMO1.Lines);
END;

--------------------

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »