[Azazelps]

Есть вот такой код для сохранения списка файлов и папок в определённой директории в текстовый файл

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure GetFileList(DirList: string; ListBox1: TListBox); // листинг директории, например GetFileList('C:\*.*') begin     ListBox1.Clear;     ListBox1.Perform(LB_DIR,                      DDL_ARCHIVE +                      DDL_DIRECTORY +                      DDL_DRIVES +                      DDL_EXCLUSIVE +                      DDL_HIDDEN +                      DDL_READONLY +                      DDL_READWRITE +                      DDL_SYSTEM,                      Integer(DirList));   ListBox1.Items.SaveToFile(GetWinDir+'\temp\DirList.txt'); end;

Приходится делать на форме невидимый ListBox
Я так понимаю, всё можно сделать легче и проще через StringList

Код:

1 2 3 4 5 6 7 8 9

s.add(DirList+'='+IntToStr(DDL_ARCHIVE +                      DDL_DIRECTORY +                      DDL_DRIVES +                      DDL_EXCLUSIVE +                      DDL_HIDDEN +                      DDL_READONLY +                      DDL_READWRITE +                      DDL_SYSTEM)) TstringList.Create.SaveToFile(GetWinDir+'\temp\DirList.txt');

но почему-то этот код не работает...
файл создается, но в нем что-то типа
C:\=49207 ........

Можно сделать еще вот так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure GetFileList(DirList: string); // листинг директории, например GetFileList('C:\*.*') var    SR: TSearchRec;    List: TStringList;    Mask:string; begin   List.Clear;   Mask:='*.*';   if DirList[Length(DirList)] <> '\' then DirList := DirList + '\';   if FindFirst(DirList+Mask, faAnyFile, SR) = 0 then   begin     repeat       Application.ProcessMessages;       if (SR.Attr and faDirectory) <> faDirectory then         List.Add(DirList + SR.Name)       else if (SR.Name <> '..') and (SR.Name <> '.') then       begin         List.Add(DirList + SR.Name + '\');         GetFileList(DirList + SR.Name + '\');       end;     until FindNext(SR) <> 0;     FindClose(SR);   end;   List.SaveToFile(GetWinDir+'\temp\DirList.txt');

но здесь ошибка выскакивает...


Подскажите что не так!!? плиз!

[Aristarh Dark]

а не проще:
dir >> file.txt

[Azazelps]

Сообщение от Aristarh Dark

а не проще:
dir >> file.txt

если можно, по-подробнее пожалуйста!??

[Azazelps]

Мне нужно чтобы не было невидимых listbox- ов

[AND_REY]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Procedure SaveFileList(NamSave,DirScan:string); Var  Fs: TSearchRec;  Tf: TextFile; begin  AssignFile(Tf,NamSave);  Rewrite(Tf);  if FindFirst(DirScan+'\*.*',faAnyFile-faDirectory-faVolumeID, Fs) = 0 Then   Repeat    Writeln(Tf,Fs.Name);   Until FindNext(Fs) <> 0;  FindClose(fs);  CloseFile(Tf); end;   procedure TForm1.Button1Click(Sender: TObject); begin SaveFileList('C:\1.txt','C:\Temp'); end;

[Azazelps]

Спасибо !

[AND_REY]

Вот ещё вариант с подпапками:

Код:

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

Var  Sl: TStringList;   Procedure FindFile(Dir: String); Var  SR: TSearchRec;  FR: Integer; begin  FR:= FindFirst(Dir+'*.*', faAnyFile, SR);  While FR = 0 Do   Begin    if ((SR.Attr and faDirectory) = faDirectory) and       ((SR.Name = '.') or (SR.Name = '..')) Then     begin      FR:= FindNext(SR);      Continue;     end;    if ((SR.Attr and faDirectory) = faDirectory) Then     begin      FindFile(Dir+SR.Name+'\');      FR:= FindNext(SR);      Continue;     end;    Sl.Add(Dir+SR.Name);    FR:= FindNext(SR);   end;  FindClose(SR); end;   Procedure TForm1.Button1Click(Sender: TObject); begin  Sl:= TStringList.Create;  FindFile('C:\Temp\');        Sl.SaveToFile('C:\23.txt');  Sl.Free; end;

[Azazelps]

Отлично! спасибо!