[Resolvido]Ainda sobre Pastas

Mestre JPaulo. Se não for um abuso da minha parte:

Enviou-me o código para abrir pastas com selecção. Funciona tudo na perfeição e as subpastas são criadas. Mas ando à luta para abrir as sub pastas conforme o Nº de processo activo, ou seja a sub pasta é criada e se clicar no botão para abrir, abre-me a Pasta Processos (dentro estão as subpastas), mas não consigo abrir directamente a sub pasta a partir do form nem com o método Hipperlink, pois abre-me sempre a Pasta Processo.

Se o Mestre puder Dar uma ajuda...

teste;

Private Sub SeuBotão_Click()
Dim obj As Object
'By JPaulo Maximo Access
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSystem.GetFolder("C:\Programas\EasyAdvo2.0\")
Set objSubFolders = objFolder.SubFolders
For Each obj In objSubFolders
If InStr(obj.Name, Me.NProcesso.Value) > 0 Then
Shell "explorer.exe """ & obj.Path & "", vbMaximizedFocus
Else
MsgBox "Pasta não existe..."
End If
Next
End Sub

Colei e alterei para os valores que estão agora conforme abaixo, mas o botão nem responde não existe nenhuma mensagem de erro sequer.

Dim obj As Object
'By JPaulo Maximo Access
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSystem.GetFolder("C:\EasyAdvo2.0\Processos")
Set objSubFolders = objFolder.SubFolders
For Each obj In objSubFolders
If InStr(obj.Name, Me.NProcesso.Value) > 0 Then
Shell "explorer.exe """ & obj.Path & "", vbMaximizedFocus
Else
MsgBox "Pasta não existe..."
End If
Next

Mestre eu estava usando este código para abrir a Pasta Processos a partir do botão que activa a caixa de texto NProcesso.

Dim Resultado As Variant
Resultado = OpenFile("C:\" & "\Processos")

Funciona na perfeição o código que lhe passei, reveja o caminho inicial que no fim tem de ter uma barra invertida \

Set objFolder = objFileSystem.GetFolder("C:\EasyAdvo2.0\Processos\")

Como sempre tem razão Mestre JPaulo.

Mais uma vez muito obrigado pela preciosa ajuda.

Importante mesmo é retorno que você nos vai dando, esse é que é muito util para quem aqui vier em busca de ajuda.