[Resolvido]Abre pasta caminho BE

PauloFerreira 21/7/2018, 21:52

PauloFerreira: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 115
Registrado : 28/02/2018

Mensagem nº1

[Resolvido]Abre pasta caminho BE

Mensagem PauloFerreira 21/7/2018, 21:52

Oi companheiros de "Guerra", preciso uma vez mais de um Help ! Com o seguinte código abro uma pasta no Explorer, mas pretendia mesmo era, abrir as pastas que estão no mesmo diretório do BE.

Código:: Private Sub Abrepasta_Click() Shell "explorer.exe " & Me.txtNomePasta, vbMaximizedFocus End Sub

Obrigado a todos…

PauloFerreira 22/7/2018, 10:26

PauloFerreira

PauloFerreira: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 115
Registrado : 28/02/2018

Mensagem nº2

Re: [Resolvido]Abre pasta caminho BE

Mensagem PauloFerreira 22/7/2018, 10:26

Amigos irei deixar um pequeno exemplo e por onde ando, ainda sem êxito ! Obrigado companheiros.
…
Como disse deixaria por onde ando sem êxito ( Shell CurrentProject.Path & Me.txtNOME, vbMaximizedFocus )

Anexos

ExemploAbrePasta.zip: Você não tem permissão para fazer download dos arquivos anexados.; (24 Kb) Baixado 22 vez(es)

delsonk 22/7/2018, 12:04

delsonk

delsonk: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 203
Registrado : 26/11/2013

Mensagem nº3

Re: [Resolvido]Abre pasta caminho BE

Mensagem delsonk 22/7/2018, 12:04

Bom dia,

veja se neste link se ajuda: https://www.maximoaccess.com/t5542-resolvidoabrir-uma-pasta-no-windows-explorer#45755

Abraço, Delson

PauloFerreira 22/7/2018, 12:31

PauloFerreira

PauloFerreira: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 115
Registrado : 28/02/2018

Mensagem nº4

Re: [Resolvido]Abre pasta caminho BE

Mensagem PauloFerreira 22/7/2018, 12:31

Amigo valeu na dica, mas não atende ao pretendido se ver o código que se encontra no botão open, é esse mesmo que o Sr. Criquio disponibilizou nesse exemplo. Só não era essa a ideia, seria mais abrir a pasta que se encontra no diretório do bd (_be)… mas obrigado.

**Alexandre Neves** 22/7/2018, 22:55

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009

Mensagem nº5

Re: [Resolvido]Abre pasta caminho BE

Mensagem Alexandre Neves 22/7/2018, 22:55

Boa noite

Fiz-lhe este código

Código:: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' código criado por Alexandre Neves, do Fórum MaximoAccess ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim fso As FileSystemObject, CP As Folder, P As Folder Set fso = New FileSystemObject Set CP = fso.GetFolder(CurrentProject.Path) For Each P In CP.SubFolders shell "explorer.exe " & P, vbMaximizedFocus Next

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

PauloFerreira 23/7/2018, 18:02

PauloFerreira

PauloFerreira: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 115
Registrado : 28/02/2018

Mensagem nº6

Re: [Resolvido]Abre pasta caminho BE

Mensagem PauloFerreira 23/7/2018, 18:02

Obrigado Sr. Alexandre, mas ao colocar no botão open, da o seguinte erro

Erro de compilação
O tipo de compilação pelo usuário, não foi definido

E marca a linha fso As FileSystemObject

Como fazer ? Obrigado abraço

**Alvaro Teixeira** 23/7/2018, 22:40

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013

Mensagem nº7

Re: [Resolvido]Abre pasta caminho BE

Mensagem Alvaro Teixeira 23/7/2018, 22:40

Olá a todos,

Paulo, edite o código, vá a referências a ative "Microsoft Scripting Runtime"

cheers

PauloFerreira 24/7/2018, 11:05

PauloFerreira

PauloFerreira: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 115
Registrado : 28/02/2018

Mensagem nº8

Re: [Resolvido]Abre pasta caminho BE

Mensagem PauloFerreira 24/7/2018, 11:05

Oi amigos, Teixeira, após ativar as referencias - Operacional. Sr. Alexandre o código esta operacional, muito obrigado, mas para ser mais que perfeito seria abrir a pasta com o nome que digitamos no campo txtNome, tentei pelo lado de colocar Me!txtNome, mas sem êxito. Se não for possível, assim resolve. Da outra forma estaria mais que perfeito.
No entanto obrigado os dois...

**Alvaro Teixeira** 24/7/2018, 11:25

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013

Mensagem nº9

Re: [Resolvido]Abre pasta caminho BE

Mensagem Alvaro Teixeira 24/7/2018, 11:25

Olá a todos,

Paulo, mostre o código de como está a fazer.
Diga onde se pode obter o caminho do BE e o nome já sabemso que é o me.txtNome

Exemplifique também o caminho completo.

Abraço

PauloFerreira 24/7/2018, 16:45

PauloFerreira

PauloFerreira: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 115
Registrado : 28/02/2018

Mensagem nº10

Re: [Resolvido]Abre pasta caminho BE

Mensagem PauloFerreira 24/7/2018, 16:45

Ok, amigo Teixeira, irei deixar um exemplo onde estou a trabalhar, antes de fechar no projeto/ App. O Código abre direitinho o caminho do projecto, apenas não abre a pasta respetiva, ou seja, GarantiaID1234. Amigo no exemplo no botão open esta lá o código.
O caminho no futuro será algo tipo \\Servidor\C\App mas como disse o código abre direitinho o caminho do projeto.
Abraço e obrigado

**Alexandre Neves** 25/7/2018, 17:30

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009

Mensagem nº11

Re: [Resolvido]Abre pasta caminho BE

Mensagem Alexandre Neves 25/7/2018, 17:30

Boa tarde,
Não entendi a última pretensão. Exemplifique

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

PauloFerreira 26/7/2018, 18:10

PauloFerreira

PauloFerreira: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 115
Registrado : 28/02/2018

Mensagem nº12

Re: [Resolvido]Abre pasta caminho BE

Mensagem PauloFerreira 26/7/2018, 18:10

Oi Sr. Alexandre, o que pretendo é o seguinte, tenho um campo no form, que tem o nome de txtNOME, neste campo coloco o nome da pasta que pretendo abrir e ao clicar no botão open abria só esta pasta, e não todas como esta a fazer. Caso não de, assim já não esta mau.
Obrigado

Amigo Teixeira, esqueci-me de te deixar o form como tinha dito no Post anterior… Lapso. Deixo agora. Obrigado

Anexos

abre.zip: Você não tem permissão para fazer download dos arquivos anexados.; (35 Kb) Baixado 16 vez(es)

**Alexandre Neves** 26/7/2018, 18:53

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009

Mensagem nº13

Re: [Resolvido]Abre pasta caminho BE

Mensagem Alexandre Neves 26/7/2018, 18:53

Boa tarde,
Veja

Código:: Dim fso As FileSystemObject If Len("" & txtNOME) = 0 Then Exit Sub Set fso = New FileSystemObject If fso.FolderExists(CurrentProject.Path & "\" & txtNOME) Then Shell "explorer.exe " & CurrentProject.Path & "\" & txtNOME, vbMaximizedFocus End If

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

PauloFerreira 26/7/2018, 19:59

PauloFerreira

PauloFerreira: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 115
Registrado : 28/02/2018

Mensagem nº14

Re: [Resolvido]Abre pasta caminho BE

Mensagem PauloFerreira 26/7/2018, 19:59

Ui… corretíssimo ! Muito bom mesmo. Obrigado… muito obrigado Sr. Alexandre.
Um abraço ao Teixeira também. Obrigado amigo.

**Alvaro Teixeira** 26/7/2018, 22:19

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013

Mensagem nº15

Re: [Resolvido]Abre pasta caminho BE

Mensagem Alvaro Teixeira 26/7/2018, 22:19

Olá a todos,

Paulo Ferreira, obrigado pelo retorno, ó fórum agradece.

cheers

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº16

Re: [Resolvido]Abre pasta caminho BE

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Abre pasta caminho BE

[Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Re: [Resolvido]Abre pasta caminho BE

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada