Atualizar pasta do Windows

Olá pessoal!

Tenho um código que salva o pdf de um relatório em uma determinada pasta. Sempre funcionou perfeitamente.

Acontece que de uns tempos pra cá, o código tem salvo como previsto, mas tendo a janela do Windows aberta, o arquivo salvo não aparece! tenho que atualizar a pasta para que o mesmo apareça.

Ou seja, preciso de um código que atualize a referia pasta do Windows (local do arquivo).

Gostaria da ajuda de vcs para contornar esse "probleminha", que não me atrapalha de todo, mas irrita! kkk


Grato!

Acredito que funcione;

Código:

Private Sub SeuBotao_Click()
Dim strCaminhoPasta As String
    'caminho da pasta
    strCaminhoPasta = "C:\Temp\PastaTeste\"
    'abre a pasta
    Shell "C:\WINDOWS\explorer.exe """ & strCaminhoPasta & "", vbNormalFocus
    'refresca a pasta
    SendKeys "{F5}", True
End Sub


Nossa, vlw mesmo. Vou testar hoje anoite.

Funcionando retorno pra avisar.

Olá. Desculpe a demora, estava tentando resolver o relatada abaixo sozinho, em cima do seu código, mas não consegui, enfim...

O código funcionou no quesito atualizar a pasta, vlw mesmo!

Agora, teria como verificar antes se a pasta já se encontra aberta? Pois eu sempre trabalho com a pasta de arquivos no segundo monitor. Logo quase sempre a pasta está aberta e meu problema é que com ela aberta o arquivo recém criado não aparece. Tenho que atualizar depois.

Então preciso verificar se a pasta já se encontra aberta. Se sim, atualiza. Se não, não faz nada...

Vou continuar tentando resolver por aki.

Agradeço!