Buscar archivos

[seques]

Ok muchas gracias

esto fue lo que hice, para quien necesite

Dim dir As New DirectoryInfo("..\Archivos")
Dim fi As FileInfo
Dim nomArch As String
Dim cont As Integer

For Each fi In dir.GetFiles
If Path.GetExtension(fi.Name).ToUpper = ".PDF" Then
nomArch = fi.Name.Trim
End If
Next