[Resolvido]procurar arquivo usando caracter curinga

olá pessoal. hoje to com uma dúvida aqui e nao consigo achar a soluçao. eu tenho varios arquivos pdf no que tem como parte do nome o código do registro mas o resto do nome é tudo sem nada em comum. queria saber como abrir um documento desse com base so no código. ia ser parecido com isso currentproject.path & "\atas\" & "*" & me.id & "*" & ".pdf" so que o asterisco nao está sendo entendido como qualquer coisa antes e depois do nome.
quem puder dar um rerp

Por que não padroniza esse nome? Seria melhor renomear os arquivos pegando o código como nome.

João,

Utilize esta função

Function DevolveEnderecoCompleto(strEndereco As String) As String
'Função criada por Alexandre Neves - Portugal
'recebe strEndereco com asterisco e devolve endereco completo
Dim fso, fl, Pasta, strNomeFicheiro As String

Set fso = CreateObject("Scripting.FileSystemObject")
Set Pasta = fso.GetFolder(EnderecoPasta(strEndereco))
strNomeFicheiro = NomeFicheiro(strEndereco)
For Each fl In Pasta.Files
If fl.Name Like strNomeFicheiro Then
DevolveEnderecoCompleto = Pasta & "\" & fl.Name: GoTo FimDaFuncao
End If
Next
FimDaFuncao:
Set fso = Nothing
End Function

Em vez de
currentproject.path & "\atas\" & "*" & me.id & "*" & ".pdf"
coloque
DevolveEnderecoCompleto(currentproject.path & "\atas\" & "*" & me.id & "*" & ".pdf")

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.