Como abrir uma pasta via código

Moderador: Avelino Sampaio

vanderlei
Mensagens: 127
Registrado em: 02 Jul 2015, 10:25

Como abrir uma pasta via código

Mensagempor vanderlei » 10 Mar 2018, 12:32

Olá
Gostaria de poder DIGITAR o nome da pasta, inserindo por exemplo o nome no lugar de FOTOSSANTONATO. Seria possível ?, iria me ajudar enormemente

Esta pasta ficaria default até que o usuário digitasse outra

Call ShellExecute(0, vbNullString, "\FOTOSFOTOSSUB\" & Me!fotoAntes, vbNullString, "\", 1)

fico no aguardo

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1871
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Como abrir uma pasta via código

Mensagempor Avelino Sampaio » 13 Mar 2018, 19:21

Vanderlei,

não entendi o desejado. Explique de outra forma.

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

vanderlei
Mensagens: 127
Registrado em: 02 Jul 2015, 10:25

Re: Como abrir uma pasta via código

Mensagempor vanderlei » 13 Mar 2018, 23:05

Olá Avelino
Desculpa ai. utilizo o código abaixo já que foi pensado em a pasta de fotos ficar junto com o projeto, mas infelizmente não foi possivel.

Código:
Private Sub Comando19_Click()
Dim strFotoAntes$
strFotoAntes = fncLocalizarArquivo
If strFotoAntes = "" Then Exit Sub
Me!fotoAntes = Mid(strFotoAntes, InStrRev(strFotoAntes, "\") + 1)
End Sub
-------------------------------------------------
Private Sub Comando20_Click()
Call ShellExecute(0, vbNullString, CurrentProject.Path & "\ArquivoFotos\" & Me!fotoAntes, vbNullString, "\", 1)
End Sub


O aplicativo é para um cirurgião plastico, que tira fotos de suas pacientes antes e depois das cirurgias e grava das seguintes forma:
em uma pasta PROCEDIMENTOS ele tem subpastas divididas assim: MAMA, QUADRIL, ABDOMEM, NÁDEGAS, FACE...onde são colocadas as fotos correspondente ao tipo de cirurgia.
Dentro destas subpastas, exemplo: MAMA a paciente é identificada pelo numero do registro que corresponde a uma subpasta, exemplo: \3816\foto1, foto2, foto3....

Minha solicitação inicial e fazer com que o medico digite o nome da pasta da paciente, exemplo: 3816 e selecione as fotos desejadas.
Assim este caminho ficaria disponivel até que fosse escolhido outra paciente, ou seja, outra pasta.

Será que expliquei demais !!!
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Avatar do usuário
Avelino Sampaio
Mensagens: 1871
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Como abrir uma pasta via código

Mensagempor Avelino Sampaio » 14 Mar 2018, 07:03

Vanderlei,

ainda esta um pouco confuso.. Veja se entendi - o caminho completo deste paciente, exibido na imagem, seria:

c:\PastaDoAplicativo\Procedimentos\Mama\3626\aqui as diversas fotos da mama
...
c:\PastaDoAplicativo\Procedimentos\Face\3626\aqui as diversas fotos da face

Por que não guarda o caminho completo no campo ? Exemplo:

Me!fotoAntes = strFotoAntes

No comando shell basta indicar o campo, que já consta o caminho e o nome da foto:

Call ShellExecute(0, vbNullString, Me!fotoAntes, vbNullString, "\", 1)

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


vanderlei
Mensagens: 127
Registrado em: 02 Jul 2015, 10:25

Re: Como abrir uma pasta via código

Mensagempor vanderlei » 14 Mar 2018, 22:25

Olá Avelino

Da maneira sugerida não resolve o problema, eu acho.
desta forma para cada foto a ser inserida, teria que refazer todo o caminho novamente
C:\CirPlastica\Procedimentos\Mama\3626\foto1.jpg

Na verdade eu gostaria de digitar somente a pasta 3626 onde encontra-se as fotos deste paciente, independente da subpasta que ela se encontra: mama, face, etc...

Observação: AS PASTAS DE FOTOS NÃO FICA NA MESMA PASTA DO SISTEMA


RESUMINDO: Preciso de uma maneira de não ter que refazer o caminho:

C:\ArquivoFotos\Procedimentos\Mama\3626\Vanderlei - 3626 - Antes1.jpg

para cada foto selecionada.

Após ter inserido a primeira foto, este caminho permaneça logado até a inserção de todas as fotos ou até que seja mudado de paciente

Esqueci de mencionar que -e utilizado um modulo:

Dim fd As Office.FileDialog
On Error GoTo trataerro
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
With .Filters
.Clear
.Add "Banco de Dados", "*.*", 1
.Add "Todos", "*.*", 2
End With
.Title = "Selecionar Banco de Dados)"
.AllowMultiSelect = False
' .InitialView = msoFileDialogViewPreview
.InitialFileName = "c:\cirurgiaPlastica\ArquivoFotos\"
If .Show Then
fncLocalizarArquivo = .SelectedItems(1)
End If
End With
sair:
Exit Function
trataerro:
fncLocalizarArquivo = ""
Resume sair:
End Function

Public Function fncLocalizarPasta(strTitulo As String)
Dim fd As Office.FileDialog
On Error GoTo trataerro
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False
.ButtonName = "Selecionar"
.InitialFileName = "c:\"
.InitialView = msoFileDialogViewList
'.Title = "Selecione a pasta de destino"
.Title = strTítulo
End With
If fd.Show = -1 Then
fncLocalizarPasta = fd.SelectedItems(1)
End If
sair:
Exit Function
trataerro:
fncLocalizarPasta = ""
Resume sair:
End Function

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Bing [Bot] e 1 visitante