Поиск файлов на дисках C, D - VB

Формулировка задачи:

Мне вот тут стало интересно, каким методом осуществляется поиск файлов в директориях C и D Используется функция Dir или Search? Подскажите, товарищи))

Решение задачи: «Поиск файлов на дисках C, D»

textual
                            Листинг программы 
                        

                            Option Explicit
Option Compare Text
 
Private Sub Command1_Click()
Dim FSO As Object, drv As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
 For Each drv In FSO.Drives
   If drv.DriveType = 2 Then Search FSO.GetFolder(drv.Driveletter & ":\") 'Debug.Print drv.DriveLetter
 Next drv
End Sub
 
 Sub Search(Fold As Object)
 Dim SubFold As Object
 Dim File As Object
   For Each File In Fold.Files
     If File.Name = Text1.Text Then
      MsgBox File.Path
     End If
   Next File
   On Error GoTo ErrHandle
   For Each SubFold In Fold.SubFolders
     Search SubFold
   Next SubFold
   Exit Sub
ErrHandle:
   MsgBox "Нет допуска к папке """ & Fold.Path & """"
   Err.Clear
 End Sub
                        