[resolvido] Criar Pasta com Path completo

Moderador: Avelino Sampaio

Fernando Carvalho
Mensagens: 20
Registrado em: 29 Jun 2018, 10:02

[resolvido] Criar Pasta com Path completo

Mensagempor Fernando Carvalho » 05 Set 2018, 21:11

Boa tarde, Sr. Avelino. Graças às suas partilhas e muita busca na internet, tenho conseguido levar a minha pequena aplicação ´quase ao seu término. Mesmo assim, estou há dois dias a tentar resolver um problema que nem sei se terá ou não resolução. é o seguinte:
1-Quando emito uma apólice de seguro para um cliente, a apólice deveria criada para dentro da pasta do cliente desta Fprma:

C:\agenciaseguros\Clientes\NomeCliente\987654/Set/2018 No entanto, a única coisa que consigo fazer é:

C:\agenciaseguros\Clientes\NomeCliente\987654 O mês e o ano é ignorado. Descobri que é por causa do travessão. Será que tem resolução?

Abaixo o código que uso rebuscado da internet:

Código:
Dim aplicativo As String
Dim Arquivo As String
Dim fso As Object
aplicativo = "c:\WINDOWS\explorer.exe"
Arquivo = "C:\agenciaseguros\Clientes\" & Me.txtCliente& "\" & Me.txtApólice
Dim msg, Style, Title
msg = "A Pasta já existe"
Style = "vbCritical"
Title = "Erro"
If Nz(Len(Me.txtNomeCliente)) = 0 Then Exit Sub
If Not IsNull(Me.txtNomeCliente) Or Me.txtNomeCliente = "" Then
Set fso = CreateObject("scripting.FileSystemObject")
If fso.FolderExists("c:\agenciaseguros\Clientes") Then

MkDir "c:\agenciaseguros\Clientes"
End If
If fso.FolderExists("c:\agenciaseguros\Clientes\" & Me.txtNomeCliente.Value) Then

Exit Sub
Else
MkDir "agencia seguros\Clientes\" & Me.txtNomeCliente.Value ' cria a subpasta
MkDir "agencia seguros\Clientes\" & Me.txtNomeCliente.Value & "\" & Me.txtApolice ' se não existir cria a 2ª subpasta
Call Shell(aplicativo & " " & Chr(34) & Arquivo, vbMaximizedFocus)
End If
End If
DoCmd.RunCommand acCmdRefresh

Disable adblock

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


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

Re: Criar Pasta com Path completo

Mensagempor Avelino Sampaio » 05 Set 2018, 21:54

Fernando,

não pode ser feito desta forma ?

C:\agenciaseguros\Clientes\NomeCliente\987654_Set_2018

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

Fernando Carvalho
Mensagens: 20
Registrado em: 29 Jun 2018, 10:02

Re: Criar Pasta com Path completo

Mensagempor Fernando Carvalho » 06 Set 2018, 12:28

Bom dia Sr, Avelino. Não vejo nenhum problema nessa sugestão.Mas, como é que eu faria isso? Como substituiria o / por outro elemento que resultasse na sua sugestão? Obrigado

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

Re: Criar Pasta com Path completo

Mensagempor Avelino Sampaio » 06 Set 2018, 13:56

Fernando,

altere conforme parte em vermelho e teste:

Código:
Dim aplicativo As String
Dim Arquivo As String
Dim fso As Object
Dim msg, Style, Title
Dim Apolice$

Apolice = replace(me!txtApólice,"/","_")
aplicativo = "c:\WINDOWS\explorer.exe"
Arquivo = "C:\agenciaseguros\Clientes\" & Me.txtCliente& "\" & Apolice

msg = "A Pasta já existe"
Style = "vbCritical"
Title = "Erro"

If Nz(Len(Me.txtNomeCliente)) = 0 Then Exit Sub
If Not IsNull(Me.txtNomeCliente) Or Me.txtNomeCliente = "" Then
Set fso = CreateObject("scripting.FileSystemObject")
If fso.FolderExists("c:\agenciaseguros\Clientes") Then
MkDir "c:\agenciaseguros\Clientes"
End If
If fso.FolderExists("c:\agenciaseguros\Clientes\" & Me.txtNomeCliente.Value) Then Exit Sub
Else
MkDir "agencia seguros\Clientes\" & Me.txtNomeCliente.Value ' cria a subpasta
MkDir "agencia seguros\Clientes\" & Me.txtNomeCliente.Value & "\" & Apolice ' se não existir cria a 2ª subpasta
Call Shell(aplicativo & " " & Chr(34) & Arquivo, vbMaximizedFocus)
End If
End If
DoCmd.RunCommand acCmdRefresh


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.


Fernando Carvalho
Mensagens: 20
Registrado em: 29 Jun 2018, 10:02

Re: Criar Pasta com Path completo

Mensagempor Fernando Carvalho » 06 Set 2018, 19:09

Muito obrigado, mais uma vez, Sr. Avelino. Funcionou a 100%. :D Só não sei como colocar resolvido, mas está resolvido. Tudo de bom para si e que Deus abençoe a sua generosidade. Um grande bem haja.

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: Nenhum usuário registrado e 8 visitantes