[Resolvido]Abrir diretório de uma pasta

Boa tarde senhores!
Em um aplicativo desenvolvido em access 2003 tinha um procedimento para gravar em um modelo word e depois abrir a pasta exibindo
todos os arquivos gravados.
A gravação está funcionando bem, mas a abertura do diretório não funciona mais.
O procedimento é o seguinte:

Private Sub Comando95_Click()
   Dim strCaminho As String, strPastaInicial As String
   strPastaInicial = "C:\SIB\Informações 2022"
   strCaminho = Buscar(Me.hWnd, "Selecionar arquivo", strPastaInicial, _
   "Arquivos Word(*.docx)" & vbNullChar & "*.docx")
   If Len(strCaminho) > 0 Then
   Call Shell("explorer.exe " & strCaminho, vbMaximizedFocus)
   End If

End Sub

Será que o exporer.exe está em outro local no windows 10?
Saudações
Luiz

Olá,

lerasmo escreveu:...depois abrir a pasta exibindo todos os arquivos gravados...

O que você pretende é abrir a pasta e não o word. Poderia por gentileza corrigir seu título para facilitar nas pesquisas?

Vamos a sua questão:
nas versões (se não engano) a partir da 2007 temos o FollowHyperlink.

Dessa forma seu código fica assim:

Código:

Private Sub Comando95_Click()
     Dim strCaminho As String, strPastaInicial As String
     strPastaInicial = "C:\SIB\Informações 2022"
     strCaminho = Buscar(Me.hWnd, "Selecionar arquivo", strPastaInicial, _
     "Arquivos Word(*.docx)" & vbNullChar & "*.docx")
     If Len(strCaminho) > 0 Then
             application.FollowHyperlink strCaminho
     End If
End Sub

Bom dia Marcelo David!
Não conhecia o FollowHyperlink.
Apliquei o seu código mas infelizmente Não funcionou.
Pensei que pudesse ser uma falta de referência, mas o procedimento para
criar um arquivo word baseado em um modelo funciona.
Para esse procedimento precisaria selecionar alguma outra biblioteca.
A propósito, alterei o título.
Atenciosamente,
Luiz

Que erro ocorreu?

Nao da' erro, mas nao executa nada.
Obrigado pela atençao.
Sudaçoes,
Luiz

Vamos ver o conteúdo da variável strCaminho:

Execute novamente com o código abaixo, veja o caminho que será exibido na MsgBox.
Confronte se ele existe. Se a MsgBox vier vazia, então não está recendo o caminho corretamente...

Faça o seguinte:

Código:

Private Sub Comando95_Click()
      Dim strCaminho As String, strPastaInicial As String
      strPastaInicial = "C:\SIB\Informações 2022"
      strCaminho = Buscar(Me.hWnd, "Selecionar arquivo", strPastaInicial, _
      "Arquivos Word(*.docx)" & vbNullChar & "*.docx")
      MsgBox strCaminho
      If Len(strCaminho) > 0 Then
              application.FollowHyperlink strCaminho
      End If
End Sub

Boa tarde Marcelo!
É, tem alguma coisa errada.
O strCaminho está contendo "Microsoft Access".
Vou examinar outra vez o código para ver se consigo entender.
Gracias,
Luiz

Continuo examinando o código e pensando: Hã! Hã!
De vez em quando penso que o VBA é candomblé.

O erro deve estar na função Buscar.
Use o FileDialog do próprio Office.

Veja como usa nesse tópico:
https://www.maximoaccess.com/t8306-resolvidouso-do-application-filedialog-para-selecao-de-arquivos

Bom dia, Marcelo David!
Sua ajuda foi meu presente de aniversário.
Vou estudar com atenção os tópicos.
Saudações,
Luiz

Isso aí! Grato pelo retorno e Feliz Aniversário, saúde paz, prosperidade e Graça para sua vida!

Bom dia, Marcelo!
Achei o código muito bacana!
Acontece que não sei nem por onde começar.
Se não for pedir muito, será que poderia adaptar ao meu código.
Sim, sou grosso em VBA.
Sou do tempo do Assembler, Fortran e Cobol.
Saudações,
Luiz

Boa tarde senhores,
Usei o código do JPaulo adaptado:

Function BuscaDoc()
'Habilite a Referencia VBA Microsoft Office 12.0 object library (Ms Access 2007)
'Ou Microsoft Office 11.0 object library (Ms Access 2003)
Dim CaminhoDoc As String
Dim JanelaDeProcura As Office.FileDialog
Dim MeusFiltros As Office.FileDialogFilter

Set JanelaDeProcura = Application.FileDialog(msoFileDialogFilePicker)

With JanelaDeProcura
.Title = "Selecione o documento"
.Filters.Clear
.Filters.Add "Word", "*.docx"

.FilterIndex = 2

.ButtonName = "Selecione"
.InitialView = msoFileDialogViewDetails
.InitialFileName = "C:\SIB\Informações 2022"
If .Show = -1 Then
CaminhoDoc = CStr(JanelaDeProcura.SelectedItems.Item(1))
Else
Exit Function
End If
Debug.Print CaminhoDoc
End With
End Function

E no botão localizar entrei com BuscaDoc.

Na declaração
Dim JanelaDeProcura As Office.FileDialog

ocorreu o erro de compilação:
O tipo definido pelo usuário não foi definido.

Não tenho a mínima idéia do que está ocorrendo.
Poderiam me ajudar?

Saudações,
Luiz

Bom dia senhores!
Funcionou maravilhosamente.
Foi só acrescentar nas referências:
Microsoft Office 16.0 Object Library.
Estava emperrado neste projeto Há muito tempo.
Agradecimentos a todos.
Luiz

Cantei vitória muito cedo.
A função abre o diretório, mas quando tento abrir o documento word
não funciona. Será que faltou alguma coisa?
Saudações,
Luiz

Engraçado, quando tento abrir o documento com duplo clique não funciona,
mas quando clico com o botão direito e seleciono abrir aí funfa.
Alguém tem uma explicação?