Visual Basic - Necesito explorar directorios

Necesito explorar todos los directorios del disco duro para buscar un fichero expecifico.

Como puedo relizar esto?

Gracias de antemano.

Pon en un form lo siguientes controles:
1 - DriveListBox
1 - DirListBox
1 - FileListBox

y en el codigo:

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive & "\"
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Hay una forma es pero que sea la que buscas....

Private Sub Command1_Click()
Explorar "d:\" 'Directorio de busqueda inicial...
End Sub

Private Sub Explorar(ByVal root$)
Dim Buffer$, ArchivoActual$, DirActual$
Buffer = Dir(root, vbArchive + vbDirectory)
Do While Buffer <> ""
If Buffer <> "." And Buffer <> ".." Then
If GetAttr(root & Buffer) And vbDirectory Then
DirActual= root & Buffer & "\" ' Direcotrio Actual...
Explorar root & Buffer & "\" ' Exploracion Recursiva...
End If
ArchivoActual=root & Buffer 'Archivo actual...
End If
Buffer = Dir
DoEvents
Loop
End Sub

Espero que te haya servido, cualquier cosa escribime... Salu2.

Muchas gracias