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

[Daddy]

С чего начать?
разобраться бы с FAT для начала.

[moderator]

С чего начать?
разобраться бы с FAT для начала.

Причем тут FAT к поиску?

[skiperski]

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

Option Explicit

Public Function test()
   
    Dim FolderPath As String
    Dim FileName As String
   
    FolderPath = "d:\1\"
    FileName = Dir$(FolderPath & "*.ini")
    Do While (Len(FileName))
        Debug.Print FileName
        FileName = Dir$()
    Loop
   
End Function

[/code]

[Daddy]

это только в одной папке проверит.
Мне не понятен способ как автоматичекси можно все файлы проверить,
ТОсеть все на диске.Точнее обратиться ко всем.
Я же струк туру диска незнаю и программа тоже.
Или вы имеете в виду,вместо FolderPath функцию создать.
Вот о ней и речь,в принципе,все дерево увидеть

[Daddy]

.

Причем тут FAT к поиску?

в FATe только перебором, в NTFS код наверное короче можно сделать

[RayShade]

Daddy, небольшой совет - сначала думай, потом говори.

БЕЗ РАЗНИЦЫ КАКАЯ ФАЛОВАЯ СИСТЕМА!

API одно для всех. Так что хоть HPFS там будет, код не изменится от этого.



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

То есть примерно так:

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

private fso as new scripting.filesystemobject
Private Sub EnumFolders(Path As String)
On Error GoTo errhdl
Dim fsl As Folder
Dim fsf1 As File
Dim ndx As Node
Dim ndx1 As Node
Set fsl = fso.GetFolder(Path & "\")
For Each fsl1 In fsl.SubFolders
Call EnumFolders(Path & "\" & fsl1.Name)
Next fsl1
For Each fsf1 In fsl.Files
list1.additem fsf1.name
Next fsf1
errhdl:
End Sub


Примечание - на форме д.б. Listbox с именем List1.
в Form_Load можно написать так:

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

private sub form_load()
enumfolders ("c:")
end sub


[Daddy]

Daddy, небольшой совет - сначала думай, потом говори.
БЕЗ РАЗНИЦЫ КАКАЯ ФАЛОВАЯ СИСТЕМА!
API одно для всех. Так что хоть HPFS там будет, код не изменится от этого.

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

[Vellan]

А какая разница. Орнганизация то всё равно иерархическая. Вот выйдет Longhorn, тогда и будем SELECT и т.д.

[Daddy]

А какая разница. Орнганизация то всё равно иерархическая. Вот выйдет Longhorn, тогда и будем SELECT и т.д.

ОПТИМАЛЬНЫЙ АЛГОРИТМ ,будет для разных систем свой.
давайте не будем не по сушеству

[RayShade]

Форум посвящен VB. Этот язык не позволяет до такого низкого уровня опуститься, чтобы была заметна разница в физическом хранении информации о файлах и каталогах. Так что по существу разницы никакой.

[oleg]

Daddy, небольшой совет - сначала думай, потом говори.
БЕЗ РАЗНИЦЫ КАКАЯ ФАЛОВАЯ СИСТЕМА!

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

private fso as new scripting.filesystemobject
Private Sub EnumFolders(Path As String)
....
end sub


не получилось проверить,ошибка компиляции,ло ума довести
пример нехватило

[Amed]

А какая ошибка-то? Небось ты в Project|References на подключил Microsoft Scripting Runtime?

[Cyrax]

а можно и я свою лепту внесу?

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

вот тут лежит пример рекурсивной процедуры поиска файлов. нужно только задать начальную папку.

[VBOSS]

Daddy это делается очень просто (деуствительно рукурсией)
FSO -тут тоже лушним будет, а самый 100% верный вариант с помощью API это делается примерно так:
На форму кйдаеш кнопку и вставляеш этот код
Option Explicit

Private Const INVALID_HANDLE_VALUE = -1
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const MAX_PATH = 260

Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function GetInputState Lib "user32" () As Long

Dim i As Long
Dim Files() As String 'будущий массив

Private Sub cmd_Click()
Dim j As Long

SearchForFolders "C:\windows\", "*.txt" 'Path - указывает, в какой папке будем искать
'File - указывает, какой файл будем искать.
Print i & " файлов" 'печатает на форме общее число файлов
'далее выводим на форму содержимое массива
For j = LBound(Files) To UBound(Files)
Print Files(j)
Next j
End Sub

Private Sub SearchForFiles(fName As String, Path As String)
Dim Atr As Integer
Dim hFnd As Long
Dim str As String
Dim WFD As WIN32_FIND_DATA
hFnd = FindFirstFile(Path & fName, WFD) 'ищем первый файл
If hFnd = INVALID_HANDLE_VALUE Then Exit Sub
Do
str = TrimNull(WFD.cFileName)
Atr = (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) 'узнаём, является
'ли найденный файл папкой
If str <> "." And str <> ".." Then
If Atr = 0 Then 'если это не папка
'переопределяем массив
ReDim Preserve Files(i)
'и записываем него путь и имя файла
Files(i) = Path & str
i = i + 1
End If
End If
Loop While FindNextFile(hFnd, WFD)
FindClose hFnd
End Sub

Private Sub SearchForFolders(Path As String, File As String)
Dim Atr As Integer
Dim hFnd As Long
Dim str As String
Dim WFD As WIN32_FIND_DATA 'тип в который будет скачиваться вся инфа о файле
hFnd = FindFirstFile(Path & "*", WFD) 'ищем первый подкаталог
If hFnd = INVALID_HANDLE_VALUE Then Exit Sub 'если подкаталог не найден, то выходим из функции
SearchForFiles File, Path 'вызывает ещё одну фнкцию для поиска файлов в папке
Do
str = TrimNull(WFD.cFileName)
'узнаём, является ли найденный файл папкой
Atr = (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY)
'если папка не является корневой на диске, то функция FindNextFile возвращает эти два значения
If str <> "." And str <> ".." Then
If Atr > 0 Then
If GetInputState() Then DoEvents
'Если файл является папкой, то снова вызываем функцию
'поиска подкаталогов в этой папке
SearchForFolders Path & str & "\", File
End If
End If
Loop While FindNextFile(hFnd, WFD) 'ищем следующий файл
FindClose hFnd 'освобождаем память
End Sub

Private Function TrimNull(Start As String) As String
Dim Pos As Integer
Pos = InStr(Start, Chr$(0))
If Pos Then
TrimNull = Left$(Start, Pos - 1)
Exit Function
End If
TrimNull = Start
End Function

посмотри там есть лишнии вещи (я из своей проги вырвал) и убери их.

[Daddy]

[quote="VBOSS"]Daddy это делается очень просто (деуствительно рукурсией)

For j = LBound(Files) To UBound(Files)

quote]
как мне надоела... invalid session...

Попробовал,чего то ищет,но если задать несушествующее расширение
то "выход за рамки"..-> сдесь
For j = LBound(Files) To UBound(Files)
происходит.
И подскажите,как переделать последний код,чтобы находил файлы
только с укзаным расширением,наприме задаю 3 буквы,а находит и по 5 и по 6 но первые совпадают,на каком этапе проверять длину расширения?

По поводу FSO,не работает код отчего то,подключил все как полагается.

спасибо

[RayShade]

Зачем городить огород c API, если используя FSO можно написать код в три раза короче и в десять раз проще?

Отправляю в поиск по ключевому слову EnumFolder.

[Daddy]

Daddy, небольшой совет - сначала думай, потом говори.
БЕЗ РАЗНИЦЫ КАКАЯ ФАЛОВАЯ СИСТЕМА!
API одно для всех. Так что хоть HPFS там будет, код не изменится от этого.

А перебор всех файлов на диске делается с помощью рекрусии.
То есть примерно так:

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

private fso as new scripting.filesystemobject
Private Sub EnumFolders(Path As String)
On Error GoTo errhdl
Dim fsl As Folder
Dim fsf1 As File
Dim ndx As Node
Dim ndx1 As Node
Set fsl = fso.GetFolder(Path & "")
For Each fsl1 In fsl.SubFolders
Call EnumFolders(Path & "" & fsl1.Name)
Next fsl1
For Each fsf1 In fsl.Files
list1.additem fsf1.name
Next fsf1
errhdl:
End Sub


Примечание - на форме д.б. Listbox с именем List1.
в Form_Load можно написать так:

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

private sub form_load()
enumfolders ("c:")
end sub


Подскажите что такое

Dim ndx As Node
Dim ndx1 As Node
Очень ругается на Nude
попробовал обозначить перемненные без AS,чегото раболтает,но все безбожно виснет,и хр рапортует об ошибке.
Я так понял все файлы на диске выдает?
Их же много!
может из за этого виснет?
И все таки ,как понять NODE?

мОжЕТ алгоритм опишите,по русски...
берем ..кладем..проверяем...???

[skiperski]

Просто этот пример выдран из программы и RayShade не почистил его. Эти переменные нигде не используются. Просто убери эти строчки.

[Daddy]

Просто этот пример выдран из программы и RayShade не почистил его. Эти переменные нигде не используются. Просто убери эти строчки.

а насчет подвисания?
Когда код выполняеться все висниет.
Она не пердвигаються след оставляют за собой
Отчего так ресурсы жрет?

[skiperski]

а насчет подвисания?

В For Each первой строчкой вставь DoEvents

Когда код выполняеться все висниет.

Чего ж ты хочешь? Ты же весь диск сканируешь

Она не пердвигаються след оставляют за собой

??? Моя твоя не понимай

Отчего так ресурсы жрет?

Из-за рекурсии. Чем глубже вложение папок, тем больше ресурсов сжирает.

[Saturn.65]

Небольшой вопрос. Ищу файлы по маске. Нахожу. Помещаю в ListBox.
Как теперь мне совершить над ними определенное действие? Например переместить. скопировать или удалить? C одним файлом все понятно, а тут их целый список.

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

Private Sub Form_Load()
    Dim a() As String
    ScanForFiles "C:\", "*.tmp", a()
    For i = 0 To UBound(a())
        List1.AddItem a(i)
    Next
End Sub


Вот пример целиком:

[alibek]

По одному файлу и обрабатываешь.
Либо используешь API/FSO.