| Вопрос: КОЛ-ВО ФАЙЛОВ | Добавлено: 27.04.05 23:44 |
Автор вопроса:  OLI | ICQ: 4150404 |
|
Прошу о помощи у более опытных!!!!!!!!!! Заранее спасибо!!!!!!!
Подскажите.... Вообщем вывожу я список файлов(выводится в FileListBox) в какой либо папке...это пнятно,выбираю нужное расширение файла,это тоже понятно.. А вот как мне например чтобы в Label1 выводилось кол-во файлов,и кол-во каждого расширения отдельно(типа ...exe-3 файла,..mp3-500 и т.д)Плиз подскажите кто может!!! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 28.04.05 05:37 |
|
Вот это похоже количество всех файлов:
Private Sub Command1_Click()
Label1.Caption = File1.ListCount End Sub а чтобы посчитать сколько будет EXE фалов, то можно перебрать i=0 to (File1.ListCount-1) и получать имя каждого файла как File1.List(i). Потом берёшь последние 4 буквы ( не советские  ) и сравниваешь их с ".exe". если совпадает, просто увеличь счётчик. ладно, короче, вот код:
Option Explicit
Option Compare Text Dim i As Integer, K As Integer Dim tmp As String Const T = ".EXE" 'searching for exe files Private Sub Command1_Click() K = 0 For i = 0 To File1.ListCount - 1 tmp = File1.List(i) tmp = Mid(tmp, Len(tmp) - Len(T) + 1, 4) If tmp = T Then K = K + 1 Next Label1.Caption = K End Sub |
||
|
Номер ответа: 2 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 28.04.05 11:05 |
| Да можно и фильтр юзать... | ||
|
Номер ответа: 3 Автор ответа: Neco ICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #3 | Добавлено: 30.04.05 00:32 |
|
А зачем вообще юзать этот плохоподдающийся контролю FileListBox? Пробивай файлы сам через цикл
tmpFile=dir$(папка с маской файла) do while len(tmpFile)>0 здесь работаешь с именем файла tmpFile=Dir$() loop может, что не так, если не работает скажите, лады? А ещё более ala профи считывать через api FindFirst&FindNext - принцип тот же, но возможностей больше. |
||
Страница: 1 |