Вроде простой вопрос...

[goro]

Привет всем.
У меня такой вопрос. Как сделать чтобы прорамма проверяла выбранну папку (к примеру с:\temp) на наличие Zip файлов и выводила бы список в ListViev.
Заранее всем спасибо.

[Gemini]

Просто берёшь обьект file1 и раставляешь параметры:
file1.Pattern=*.zip*
file1.Path=C:\Temp

а потом загоняеш всё что там будет показано в ListViev

Dim i&
For i = 0 To File1.ListCount - 1
ListView1.ListItems.Add File1.List(i)
Next

[goro]

А можно ли сделать это без List1? Или без него не обойтись?

[goro]

Люди а может поможете???

[Amed]

Похоже, без File1 не обойтись
Попробуй поюзать поиск...

[goro]

Эх... Придется с File... Просто это немного медленно, а мне каждая секунда в скорости дорога...

[Colonel]

Эх... Придется с File... Просто это немного медленно, а мне каждая секунда в скорости дорога...

Вот тебе пример с использованием класса FSO (FileSystemObject)
загружает файлы в ListBox - для ListView сам переделаешь - ничего трудного

в References сделай ссылку на Microsoft Scripting Runtime
'Загрузка файлов указанной папки в ListBox
Sub loadFolderIntoList(folderPath As String, adList As ListBox, Optional filterExt)
'Очистить список
adList.Clear

'Объявление переменных FileSystemObJect
Dim FSO As FileSystemObject, curFolder As Folder
Set FSO = New FileSystemObject
'Получить все файлы из указанной папки
Set curFolder = FSO.GetFolder(folderPath)

'Загрузить файлы в список
For Each File In curFolder.Files
'Если не указано расширение - загрузить все файлы, иначе только
'отфильтрованные
If IsMissing(filterExt) Then adList.AddItem File Else_
If Right$(File, 3) = filterExt Then adList.AddItem File
Next

'Убить объектные переменные
Set Folder = Nothing
Set FSO = Nothing

End Sub

[RayShade]

2 Colonel

File это объектная переменная. Так что напрямую ее нельзя пихать в список. Нас конкретно интресует только проперть File.Path или File.Name



Также лучше сжелать полноценную поддержку масок, используя Like вместо Right$.

[Colonel]

2 Colonel
File это объектная переменная. Так что напрямую ее нельзя пихать в список. Нас конкретно интресует только проперть File.Path или File.Name

Также лучше сжелать полноценную поддержку масок, используя Like вместо Right$.

Да без вопросов - я просто на скорую руку писал
В принципе у меня и сам объект File без проблем пихается в листбокс - хотя конечно корректней делать с использованием свойств.

[RayShade]

Ну просто у File есть дефолтная проперть, и она напрямую вызывается при обращении просто к объекту. Но это будет иметь немного меньшую производительность просто

[Vitaly1]

a =Dir("c:\tmp\*.zip")
combobox1.clear
while a <>""
'если еще надо имя отделить от пути то:
Name =""
for i=len(a) to 1 step-1
if mid(a,i,1)="\" then exit for
name = mid(a,i,1)+name
next i
combobox1.additem a
a=dir
wend

[goro]

2 Colonel
Tnx а ты можешь скаать как сделать чтобы выводилися только имена файлов без путей кнему?

[Colonel]

2 Colonel
Tnx а ты можешь скаать как сделать чтобы выводилися только имена файлов без путей кнему?

По моему в предыдущих постах я и RayShade эту тему затронули

Пишешь - File.Name явно. Объект файл по умолчанию передает свойство File.Path.

[goro]

ОЙ! Точно! Я прогнал... Спасибо!

[Ilya Vasilyev]

Offtopic

Welcome to route 666

goro, поменяй подпись, плиз...

[gaidar]

Правильно, надо менять.

Кстати, можно пути в ручную удалять. Вот тебе и имена.

[Vitaly1]

а так, что плохо?

a =Dir("c:\tmp\*.zip")
combobox1.clear
while a <>""
'имя отделяем от пути:
Name =""
for i=len(a) to 1 step-1
if mid(a,i,1)="\" then exit for
name = mid(a,i,1)+name
next i
combobox1.additem Name
a=dir
wend

[RayShade]

Да нет, в принципе, такой способ довольно прост, так как не требует подключения никаких дополнительных библиотек и пр.



Но он весьма ограничен по возможностям - если понадобится выводить то либо кроме имен файлов то тут он уже не пойдет. Так что если в будущем надо будет прикрутить какую нибудь еще функциональность, то лучше использовать FSO.

[sanches]

что-нибудь это что? если размер/время и т.д. - что, только FSO способен эту инфу извлеч?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь! все-таки Vitaly1'н метод лучше, я и сам только этим пользуюсь

[RayShade]

Да, только FSO.

Или API, но API сложнее в применении. Кто чем пользуется - вопрос предпочтнеий и решаемой задачи, как я уже выше говорил.[/quote]

[Colonel]

Да, вроде из простого вопроса обсуждение вылилось аж на 2 страницы!
Действительно, как уже говорилось - это вопрос конкретной задачи и предпочтений.
Вот я допустим чаще пользуюсь своей функцией проверки на существование файла (классический пример с использованием Len>0) вместо функции FSO, но в случае необходимости использую и FSO.
Мое ИМХО - программировать в классах более логично и продумано.
А вообще, это же замечательно, что существует несколько альтернатив для решения конкретной задачи - а выбор уже за нами.

[goro]

Всем спасибо за примеры

[goro]

Ладно раз Gaidar сказал поменять подпись, то конечн поменяю...

[sanches]

GetAttr ( path ) - атрибут файла
SetAttr ( path ) - установить атрибут
FileDateTime ( path ) - время
FileLen ( path ) - размер файла в байтиках

^ ^ ^
|-----|-------|-------- вроде не API и не FSO. Интересно, что же это может быть тогда

[RayShade]

Хм.. Похоже это встроенные функции Бейсика

Интересно, откуда они там взялись?

[Alfa]

А не легче для решения вопроса использовать API?

[sanches]

Хм.. Похоже это встроенные функции Бейсика
Интересно, откуда они там взялись?

опять же пресловутая литература Microsoft Press - я же говорил, что там ОЧЕНЬ много фсяких мелочей

[Alfa]

Это где? Ссылку скажи..

[sanches]

где?..., Microsoft Press ??? Так это книжка по VB издательства Micr.Press
http://search.rambler.ru/click?i=328545 ... b/bhv7.htm
- вот все, чем могу помочь

[Firestorm]

ну и я чё-нить скажу
сущесвуют и примеры поиска файлов...
http://planet-source-code.com/vb/script ... phabetical

модет чё пригодится