Конференция VBStreets

**olik111** » 11.01.2006 (Ср) 8:53

Как получить количество файлов в папке? Если можно в виде кода.

**Sirik** » 11.01.2006 (Ср) 10:25

сколько раз писалось:

Код: Выделить всё: Dim strFileName As String strFileName = Dir("C:\*.*") While strFileName <> "" List1.AddItem strFileName strFileName = Dir Wend

**hCORe** » 11.01.2006 (Ср) 10:34

Угу. А количество будет List1.ListCount.

Либо заведи счетчик в цикле.

**kif** » 11.01.2006 (Ср) 10:56

без критики....
предпочитаю FileListBox.Visible=False

**hCORe** » 11.01.2006 (Ср) 11:18

А я - FindFirstFile, FindNextFile API.

**RayShade** » 11.01.2006 (Ср) 12:44

А я, предлагаю

Код: Выделить всё: createobject("scripting.filesystemobject").getfolder("c:\").files.count

И это самое верное и простое решение этой проблемы.

**Хакер** » 11.01.2006 (Ср) 14:38

Полностью согласен с RayShade'ом. И почему никто не хочет использовать готовую коллекцию, а предпочитает городить циклы, объявлять кучу API и структур к ним. Непонимаю...

**hCORe** » 11.01.2006 (Ср) 15:10

Угу. И процессы перечислять при помощи WMI надо бы... Переделал. А еще сейчас подключил вместо обычных коллекций - VBScript Dictionary; на очереди использование WShell.Reg!

ПЕРЕАПИ/ЗМ. Легкое психическое расстройство характеризующееся перманентно аберрантной эйфорией при виде даже самого названия функции API. Тяжелые формы заболевания - поинтеризм, ассемблерия. Похожие симптомы имеет также ложный хакеразм. Внимание! Больные переапизмом агрессивны, скрытны, малообщительны. Реакция на внешние раздражения - преимущественно критическая, она проявляется обыкновенно спустя три периода латентной мозговой кривой (убежать успевают все). В особых случаях больным назначается принудительное лечение путем введения .NET Framework SDK через зонт

**Хакер** » 11.01.2006 (Ср) 15:40

[hCore писал(а) "зонт"]

Может быть зонД?

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

Единственный минус FSO это то, что но возвращает объем Long-функцией. Т.е. если объем больше чем 65536*65536 функция возвратит аля фигня.

Но всё изменится когда я выпущу PPL!

**hCORe** » 11.01.2006 (Ср) 16:05

[off1]Потому смайлик и стоит, что через зонт. Понимаешь, на зонт наносится тонким слоем свежий концентрат MSDN...[/off1]

[off2]Мне почему-то больше нравится Dir() и FindFirstFile. Дешево и сердито.[/off2]
[off3]Совершенно не люблю FileListBox.[/off3]
[off4]С FSO дела не имел. Ну не нравятся мне лишние библиотеки. Опять же, проверять наличие и доступность FSO надо. То есть, автоматически - использовать позднее связывание. А с API легче...[/off4]
[off5]А, впрочем, дело вкуса.[/off5]

Что такое PPL?

**Хакер** » 11.01.2006 (Ср) 16:19

Это то, что где-то через месяц появится в "Проектах жителей" и потрясёт мир

Power Programming Lib (tm)

**olik111** » 12.01.2006 (Чт) 2:07

всем спасибо

GM » 12.01.2006 (Чт) 8:44

[off4]С FSO дела не имел. Ну не нравятся мне лишние библиотеки. Опять же, проверять наличие и доступность FSO надо. То есть, автоматически - использовать позднее связывание. А с API легче...[/[off4]

Ух как я тебя понимаю

**Andrey Fedorov** » 12.01.2006 (Чт) 11:42

Вопрос на засыпку - на какой машине нет FSO?
На той где установлен голый Win95?
И много ли таких компьютеров еще осталось?

GM писал(а):
[off4]С FSO дела не имел. Ну не нравятся мне лишние библиотеки. Опять же, проверять наличие и доступность FSO надо. То есть, автоматически - использовать позднее связывание. А с API легче...[/[off4]

Ух как я тебя понимаю

**Хакер** » 12.01.2006 (Чт) 12:57

Andrey Fedorov писал(а):Вопрос на засыпку - на какой машине нет FSO?
На той где установлен голый Win95?
И много ли таких компьютеров еще осталось?

Да даже не в этом дело. scrrun.dll весит 148 КБ. Неужели так трудно положить в папку с программой такой "лёгкий файл"?

Конференция VBStreets

количество файлов в папке

количество файлов в папке

Кто сейчас на конференции