[Resolvido]Fechar Pasta através de Botão no Form

Bom dia, estou utilizando este código para fechar uma pasta do Windows, porém não estou conseguindo.

DoCmd.Close (CurrentProject.Path & "\Test")

Pesquisei na net e não encontrei algo que poderia adaptar, o comando docmd.close funciona para este tipo de operação?

Não. DoCmd.Close é usado para fechar elementos internos do Access, como formulário e relatório, por exemplo.

Qual o comando que utilizo?

Dentro do VBA do formuario;


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10


Private Sub SeuBotão_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, CurrentProject.Path & "\Test")
If winHwnd <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
Else
MsgBox "Essa Pasta não está aberta.", vbCritical
End If
End Sub

Grande JPaulo, esqueci de dizer se trata de uma subpasta C:\msg\test testei o código e não funcionou teria que funcionar mesmo se fosse uma subpasta?

testado e a funcionar;

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10


Private Sub SeuBotão_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, CurrentProject.Path & "\msg\Test")
If winHwnd <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
Else
MsgBox "Essa Pasta não está aberta.", vbCritical
End If
End Sub


Ou

Private Sub SeuBotão_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "C:\msg\Test")
If winHwnd <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
Else
MsgBox "Essa Pasta não está aberta.", vbCritical
End If
End Sub

Testei e não funcionou sempre aparece a mensagem que a pasta não está aberta, ou seja não está reconhecendo que a psta foi aberta só está pegando a 2º condição

Funciona sim, sem duvida.

Na primeira condição, a pasta com a subpasta terá de estar junto ao banco.

Na segunda condição, a pasta com a subpasta terá de estar em C:\

Reveja bem os nomes das pasta e as condições que lhe passei acima.

Testei varias vezes, sem problemas.

Verifiquei o caminho está da seguinte forma:

Pasta msg está dentro de c:
Pasta test está dentro de c:\msg
E o Banco está de c:\msg

Não funcionou, vc tem o exemplo por gentileza para me enviar para testar.

Você quer fechar a Pasta msg ou a pasta Test ou as duas ?

Já entendi o que você quer;

Teste;

Private Sub SeuBotão_Click()
Dim winHwnd, winHwnd1 As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "C:\msg")
winHwnd1 = FindWindow(vbNullString, "C:\msg\Test")
If winHwnd <> 0 Or winHwnd1 <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
PostMessage winHwnd1, WM_CLOSE, 0&, 0&
Else
MsgBox "Essa Pasta não está aberta.", vbCritical
End If
End Sub

Não sei o que está acontecendo mais não funcionou, quero fechar a pasta que está sendo aberta que é este caminho C:\msg\test testei o código e não funcionou

Este código que vc me passou
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10

coloquei no form depois de:
Option Compare Database

é isto mesmo?

try;

http://dl.dropbox.com/u/771097/Castro.rar

Caro JPaulo, baixei o exemplo e foi exatamente como fiz e também não funcionou, será que é alguma Dll, ou algo que está faltando pois não funciona.

Amigo, veja as referencias VBA se estão marcadas iguais ao do exemplo, aqui funciona em pleno tanto no Windows Vista como no XP.

Caro amigo, as referências estão iguais.

Recapitulando o caminho das pastas:

Unidade C: Pasta msg está dentro de C: e Subpasta test está dentro de msg banco de dados está dentro da pasta msg, é um mistério não funcionar.

Exactamente como está recapitulado por si.

Voltei a testar, abri a pasta msg, abri o banco, depois abri a pasta test e o codigo fechou as duas pastas.

Se alguem mais quiser testar, tiramos a duvida final para encerrar-mos o tópico.

Vou testar em outro Pc e retorno

Testei em 2 Pcs diferentes e não funcionou, mesmo assim obrigado pela atenção, vou ver outra alternativa para este problema

Valew pelo retorno, mas é assim mesmo que funciona, por isso alguma coisa estará mal por aí.

Ola Amigo Castro;

Reativando o tópico, após efectuar varios testes no Windows Vista e no Windows 7, verifiquei que as API`s não liam a totalidade das instruções.

Se ainda quiser, teste por favor que funfa em todas as versões;


Cole no VBA do seu formulario após o Option Compare Database

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const WM_CLOSE = &H10


Private Sub SeuBotão_Click()
Dim strFechaPasta, strFechaPasta1 As Long
Dim strEnviaComandoWindows, strEnviaComandoWindows1 As Long
strFechaPasta = FindWindow(vbNullString, "msg")
strFechaPasta1 = FindWindow(vbNullString, "Test")
If strFechaPasta <> 0 Or strFechaPasta1 <> 0 Then
strEnviaComandoWindows = PostMessage(strFechaPasta, WM_CLOSE, 0&, 0&)
strEnviaComandoWindows1 = PostMessage(strFechaPasta1, WM_CLOSE, 0&, 0&)
Else
MsgBox "Essa Pasta não está aberta.", vbCritical
End If
End Sub

Fantástico, perfeito grande mestre incrível sua força de vontade em compartilhar e ajudar muito obrigado. Parabéns!!!

Obrigado pelo retorno amigo, jamais iria desistir de resolver essa bola.

Abraço

Amigo JPaulo, como havia lhe informado o código funcionou perfeitamente só que estou utilizando o código onde esconde a janela principal do Access, o que está acontecendo é quando as pastas msg ou test está fechada o código está fechando o Banco de dados tentei implementar uma condição para não fechar porém não consegui.

teria que colocar algo se as pastas tiver fechada não executar o código vc colocou para executar uma msgbox ai quando aparece a msg e clico em ok fecha o BD se as pastas estiverem fechadas. tentei colocar docmd.cancelEvent mais não funcionou a como fazer.

Carro JPaulo, testei como enviou e continua a fechar o BD se as pastas estiverem fechadas

Terei que testar em casa, em conjunto com o codigo de esconder a janela do Access.

Aqui está em Access 2007.

Testado no 2007, 2010, com Windows XP, Windows Vista e Windows Seven.

http://dl.dropbox.com/u/771097/FechaPastas.rar

Ok, irei testar e retorno obrigado

Caro amigo, testei e continua a fechar o Bd, estou utilizando Access 2003 e Win XP.

Caro hcastro, testei e fecha as pastas, estou utilizando Access 2003 e Win 7.

Ok, realmente as pastas são fechadas, o problema é quando as pastas não estão abertas está fechando o BD

Amigo Castro, se fecha o BD é porque você tem algo errado, o exemplo que lhe enviei não fecha.