HELP!Чтение файлов с диска по очереди как касперский напр...

[Memfivosfey]

Мне очень нужно заставить мою прогу читать все файлы с диска, по очереди (полный путь, скрытые, системные, пустые папки...), как это происходит в антивирусах, например касперского...

[Sebas]

А это разве Касперский придумал? Это метод Стэка Рекурсивина.

[Memfivosfey]

Мне однака, савершенно всё-равно кто придумал, я и неговорил, что он придумал, я только сказал: как у него, подскажите как плииз....

[RayShade]

Все просто.

Есть FSO. В нем есть объект Folder. У него есть коллекция Folders и Files, в коллекции Folders есть также объекты типа Folder и так далее, пока не кончится уровень вложенности.

Так что, рекурсия и for each тебя спасут

[Memfivosfey]

А с помощью каких функций можно читать фолдер! Что бы было быстро... Не буду же я пользоваться стандартным контролом Dir1 для этого?!

[Amed]

Очевидно, FSO.ReadFolder и DNA.FindErrors...

А вот и примерчик их использования...

[Алексей К.]

посмотри в примере моего кода. Скачет по всем папкам диска (переменная path ), создает дерево, сохраняет сруктуру (скрытые и не скрытые) в ацевскую базу с применением рекурсии и через FSO. Изменишь под себя как тебе надо.

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

Private Sub файл_в_базу(имя_папки, путь_к_папке)
Set rs2 = db.OpenRecordset("файлы")
Set fsl2 = fso.getfolder(путь_к_папке)
For Each файл In fsl2.Files
    rs2.AddNew
    rs2.Fields("имя") = файл.Name
    rs2.Fields("папка") = имя_папки
    rs2.Update
Next
rs2.Close
End Sub

http://bbs.vbstreets.ru/viewtopic.php?t=13691

[Memfivosfey]

Очевидно, FSO.ReadFolder и DNA.FindErrors...

А вот и примерчик их использования...

Спасибо дружище, выручил..., дело говоришь....

[Memfivosfey]

посмотри в примере моего кода. Скачет по всем папкам диска (переменная path ), создает дерево, сохраняет сруктуру (скрытые и не скрытые) в ацевскую базу с применением рекурсии и через FSO. Изменишь под себя как тебе надо.

Код:
Private Sub файл_в_базу(имя_папки, путь_к_папке)
Set rs2 = db.OpenRecordset("файлы")
Set fsl2 = fso.getfolder(путь_к_папке)
For Each файл In fsl2.Files
rs2.AddNew
rs2.Fields("имя") = файл.Name
rs2.Fields("папка") = имя_папки
rs2.Update
Next
rs2.Close
End Sub

Иду проводить испытания...

[Ruslan Demidow]

Очевидно, FSO.ReadFolder и DNA.FindErrors...

А вот и примерчик их использования...

Спасибо дружище, выручил..., дело говоришь....

Подкаталоги получить можно через коллекцию
Folder.subfolders

Vb-скрипт, приведённый ниже, выводит в текстовый файл C:\Test.txt все каталоги и файлы в них, начиная с каталога указанного в Path, включая вложенные.

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

dim FSO, Fldr, SbFolders, Fils, Path, lPath
dim cFile, cFolder, txt

Path="C:\User"
set FSo=Createobject("Scripting.FileSystemObject")
set txt=fso.createtextfile("c:\test.txt")
call GetFilesName (Path)
txt.close
msgbox "Ok"
Wscript.Quit(0)


Sub GetFilesName(lPath)
set fldr=fso.getfolder(lPath)
set sbfolders=fldr.subfolders
set fils=fldr.files

for each cfile in fils
   txt.writeline(fso.getparentfoldername(cfile) & "" & cfile.name)
next

for each cfolder in sbfolders
   txt.writeline ("=================================")
   txt.writeline("Folder: " & fso.getparentfoldername(cfolder) & ""  & cfolder.name)
   getfilesname(cfolder)
next
end sub