Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];

Вниз

Как получить названия только папок в текущей папке?   Найти похожие ветки 

 
MisterBin   (2002-04-30 18:26) [0]

Как получить названия только папок в текущей папке?
Т.е., чтобы в ListBox"e были названия только папок, которые находятся на в "C:\TEST". А потом при клике в ListBox"e по названию определённой папки она подставлялась в переменную для дальнейшего использования. Если не жалко дайте код.


 
MisterBin   (2002-04-30 18:27) [1]

Точнее не при клике на названии, а при выборе и потом клике на кнопке.


 
Vovchik   (2002-04-30 18:38) [2]

Совсем недавно я отвечал на такой вопрос:

var
dirinfo:Tsearchrec;
begin
FileList.Clear;
if FindFirst(SDirName.Text+"\*.*", faAnyfile, DirInfo)=0 then
begin
repeat
if (DirInfo.Attr and faDirectory)=1 then
FileList.Items.Add(DirInfo.Name);
until FindNext(DirInfo)<>0;
end;
end;


И положил пример по копированию файлов (где это используется) в кладовку.


 
MisterBin   (2002-04-30 22:06) [3]

>>Vovchik

Да, но в ListBox"e появятся названия всех файлов в каталоге а не папок, а папок не будет вообще. А мне нужно именно папки.


 
Vovchik   (2002-04-30 22:15) [4]

>MisterBin © (30.04.02 22:06)

Сначала посмотри, а потом говори.

Тут написано:

if (DirInfo.Attr and faDirectory)=1 then ...

т.е., если у файла есть атрибут faDirectory. Что не так?


 
MBo   (2002-04-30 22:19) [5]

if FindFirst(APathr+"*.*",faDirectory,sr)=0 then
repeat
if (fadirectory=(sr.attr and fadirectory))
and (sr.name[1]<>".") then begin
memo1.lines.add(sr.name);
until FindNext(sr)<>0;
findclose(sr);


 
MBo   (2002-04-30 22:20) [6]

>faDirectory. Что не так?
faDirectory=$10



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
4-50178
alexproger
2002-03-03 01:21
2002.05.16
Как узнать количество страниц, печатаемых на принтере


3-49820
ARO
2002-04-18 08:58
2002.05.16
Компонент для работы с Clipper


14-50127
Doom
2002-04-03 15:24
2002.05.16
Как создать свой первый сайт?


1-49962
heruvim4ik
2002-05-04 21:52
2002.05.16
Путь до моего приложения


1-50009
MisterBin
2002-04-30 18:26
2002.05.16
Как получить названия только папок в текущей папке?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский