Obtener archivos de un directorio con filtro-patrón de selección

Dim directorio As String = "D:\compra"
        Dim rgx As String = "2007-06*.*"
        Dim dirs As String() = Directory.GetFiles(directorio, rgx, SearchOption.TopDirectoryOnly).ToArray

fuente