VPF::Получить в стринглист содержимое папки

TrillerMan

Дата 18.2.2007, 16:12 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет.
Нужно 2 процедуры возможно у кого есть?
Первая:
Получить в стринглист(или мемо) имена всех папок в папке(с:\test\)
Вторая узнать количество файлов в папке(с:\test\)

З.Ы.Гугель юзал,много мусора нашёл,некоторые варианты компилятся,но не работают((

Matematik

Дата 18.2.2007, 16:17 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


Procedure FindDirInDir(const indir:AnsiString;const wStringList: TStrings;const filemast:AnsiString='*.*');
var ssr : TSearchRec;
begin
  wStringList.Clear;
  if FindFirst(indir+filemast, faAnyFile, ssr)=0 then
    repeat
      if ((ssr.Attr and faDirectory)<>0) and (ssr.Name<>'..') and (ssr.Name<>'.') then
        wStringList.add(ssr.Name);
    until FindNext(ssr)<>0;
  SysUtils.FindClose(ssr);
end;

function CountFileInDir(const aDirName:AnsiString; aFileMask:AnsiString='*.*'):Integer;
var ssr:TSearchRec;
begin
  result := 0;
  if FindFirst(aDirName)+aFileMask, faAnyFile, ssr)=0 then
    repeat
      if (ssr.Attr and faDirectory)=0 then
        Inc(result);
    until FindNext(ssr)<>0;
  SysUtils.FindClose(ssr);
end;

TrillerMan

Дата 18.2.2007, 22:44 (ссылка)

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

Загрузка ...

Новичок

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

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

БЛагодарю

0LineGate

Дата 22.4.2007, 18:52 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

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

2 Matematik

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure FindDirInDir(const indir:AnsiString;const wStringList: TStrings;const filemast:AnsiString='*.*');
var ssr : TSearchRec;
begin
  wStringList.Clear;
  if FindFirst(indir+filemast, faAnyFile, ssr)=0 then
    repeat
      if ((ssr.Attr and faDirectory)<>0) and (ssr.Name<>'..') and (ssr.Name<>'.') then
        wStringList.add(ssr.Name);
    until FindNext(ssr)<>0;
  SysUtils.FindClose(ssr);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FindDirInDir('C:\Program Files',Listbox1.Items,'*.*');
end;

end.

в таком коде,в Лисбокс выводится только Program Files :((

MetalFan

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

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

ну прально....
IncludeTrailingPathDelimiter тебе поможет

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

There are always someone smarter than you...

Sunvas

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

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

Загрузка ...

Соль и сахар

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

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

0LineGate, ставь

Код


FindDirInDir('C:\Program Files\',Listbox1.Items,'*.*');

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Danя

Дата 15.5.2007, 19:30 (ссылка)

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

Загрузка ...

Новичок

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

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

А как в Listbox получит список файловна диске C:\

Danя

Дата 15.5.2007, 19:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Всё всем пасибо сам разобрался!!!!!!

LesnoyChelovek

Дата 16.5.2007, 15:07 (ссылка)

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

Загрузка ...

странник Интернета

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

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

Ну, раз сам разобрался хоть код кинь.

Это сообщение отредактировал(а) LesnoyChelovek - 16.5.2007, 15:08

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

Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo

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