Поиск файлов с определенным расширением

[Wolfie]

alibek верно верно! это меня насчет List1.Text проклинило совсем... просто сам писал программу недавно, там тока выделенный элемент из списка брался, я и автоматом ...
tyomitch надо же.... век живи век учись, спасибо, буду теперь только так.
Saturn.65 ну тут либо у тебя еще 364 на компе файла лежат, либо ты код модифицировал, либо код уже с ошибкой: вывод один: по F8 прогони, и посмотри, где он там находит эти файлы...

[Saturn.65]

А может есть у кого работающая версия поиска файлов по расширению и их удалению?

[GSerg]

А может ты прочитаешь то, что написано выше?

[Денис]

Вообще зачем здесь были килограммы кода выложены? Есть же справка в VB

Код: Выделить всё

' Display the names in C:\ that represent directories.
MyPath = "c:\"   ' Set the path.
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
   ' Ignore the current directory and the encompassing directory.
   If MyName <> "." And MyName <> ".." Then
      ' Use bitwise comparison to make sure MyName is a directory.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         Debug.Print MyName   ' Display entry only if it
      End If   ' it represents a directory.
   End If
   MyName = Dir   ' Get next entry.
Loop

Этот код выводит папки по заданному пути.
А теперь добавим то что нам требуется:

Код: Выделить всё

' Display the names in C:\ that represent directories.
MyPath = "c:\"   ' Set the path.
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
   ' Ignore the current directory and the encompassing directory.
   If MyName <> "." And MyName <> ".." Then
      ' Use bitwise comparison to make sure MyName is a directory.

If  Right(MyPath & MyName, 4) = ".txt"  Then
         Debug.Print MyName   ' Display entry only if it
      End If   ' it represents a directory.
   End If
   MyName = Dir   ' Get next entry.
Loop

Все!

Ramzes, ну а добавишь элементы в листбокс уж сам.

[Nord777]

VB_D3D_Денис
Ты смотрел на дату когда Ramzes последний раз постил?

[Денис]

Nord777
это же форум!