[Resolvido]Abrir pasta referente ao registro

Boa tarde,
Tenho um formulário de leitura, que somente pode-se ler um registro...
a ideia é, um botão que quando clicasse abrisse a pasta refente o registro que estou visualizando no formulário.
Porém preciso que puxe a pasta pelo número da tarefa...

Na pasta está: Tarefa &(Numerodatarefa), ex.: Tarefa 1098

E no campo do formulário.: 1098

Bom dia/tarde!

Para abrir uma pasta ou executável, se utiliza a função shell:

Dim filePath As String
filePath = "C:\CaminhoDasPastas\Tarefa " & Me.NumeroDaTarefa
Shell "explorer " & filePath, vbMaximizedFocus

Se quiser abrir um executável (como a calculadora do Windows, por exemplo), basta indicar seu nome:

Shell "calc.exe"

Resolvido!

E como da fazer da erro si não achar a pasta?
Atualmente abri a pasta Documentos.

Preciso que apareça um mensagem falando que a pasta não foi achada.

If Len(Dir(filePath, vbDirectory) & "") = 0 Then
  MsgBox "Caminho não encontrado", vbCritical, "Erro!"
End If

aparece o erro, mais mesmo assim abre a pasta Documentos!

Tu tem que colocar uma condição, Caio. Adiciona um Else nesse If que te passei e dentro do Else que tu vai chamar a função Shell, ou seja, se a condição for igual a 0, exibe o erro, se não, (se existir o caminho) abre a pasta.

Tenta ae

Veja si é isso:



Private Sub Comando6_Click()
Dim filePath As String
filePath = "G:\EngProc\ArquivosEP\09 - Indicadores\Relatório de rastreabilidade de processo\Tratativas\Tarefa " & Me.txt_ids
Shell "explorer " & filePath, vbMaximizedFocus
Else
If Len(Dir(filePath, vbDirectory) & "") = 0 Then
MsgBox "Tarefa não encontrada", vbCritical, "Erro!"
End If
End Sub

Pelo que vc mencionou era isso, mais da seguinte mensagem: "Bloco Else sem If".

Errou a ordem, apenas... O correto seria:

Private Sub Comando6_Click()
Dim filePath As String
filePath = "G:\EngProc\ArquivosEP\09 - Indicadores\Relatório de rastreabilidade de processo\Tratativas\Tarefa " & Me.txt_ids

If Len(Dir(filePath, vbDirectory) & "") = 0 Then
MsgBox "Tarefa não encontrada", vbCritical, "Erro!"
Else
Shell "explorer " & filePath, vbMaximizedFocus
End If
End Sub

As linhas acima leem-se:

Se { If } o caminho { Len(Dir(filePath, vbDirectory) & "") } não existir { = 0 } então { Then }
Exibe a mensagem de erro { MsgBox "Tarefa não encontrada", vbCritical, "Erro!" }
Se não { Else }
Abre a pasta { Shell "explorer " & filePath, vbMaximizedFocus }
Fim { End If }

Se tem dúvidas quanto a instrução If/Else, dá uma pesquisada que acha bastante exemplo bacana

Resolvido.

Agora entendi como funciona a instrução Else.

Muito obrigado Gabriel.

Disponha!