MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Criar pastas e subpastas conforme valores em caixa de texto

    Marceff@bol.com.br
    Marceff@bol.com.br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 26/04/2011

    [Resolvido]Criar pastas e subpastas conforme valores em caixa de texto Empty [Resolvido]Criar pastas e subpastas conforme valores em caixa de texto

    Mensagem  Marceff@bol.com.br 13/4/2017, 05:30

    Boa noite, a todos!!!
    Agradeço desde já a quem puder me ajudar

    Estou com uma dificuldade em criar pastas e subpastas, baseado nos valores de três caixas de texto.
    Tenho 3 campos no formulário e quero que conforme o valor destes campos seja criado as pastas

    Ex.:
    No Formulário
    Campo1 = Ano 'Nova Pasta conforme o ano atual
    Campo2 = Nome 'Um nome qualquer para a nova pasta
    Campo3 = Filial 'Um nome qualquer para a nova pasta

    A sintaxe seria: o caminho fixo nunca muda, já o variável sim,
    CaminhoFixo = "C:\Pasta1\Pasta2\Pasta3\"
    CaminhoVariável = Me.Ano & "\" & Me.Nome & "\" & Me.Filial
    Caminho = CaminhoFixo & CaminhoVariável
    Portanto a montagem das pastas ficaria assim: C:\Pasta1\Pasta2\Pasta3\2017\Valorcampo2\ValorCampo3

    Com o código abaixo, simplesmente não cria as pastas
    Já tentei alterando a posição do else, implementando com FileSystem.MkDir, tentei até criando pasta a pasta dando um MkDir após o outro e sem sucesso, se eu deixar apenas um caminho fixo vai de boa, mas quero que os nomes das pastas sejam criadas conforme a situação que vou criando no formulário.

    Private Sub FncVerificaCaminho()
    Dim Caminho As String
    Caminho = "C:\Pasta1\Pasta2\Pasta3\" Me.Ano & "\" & Me.Nome & "\" & Me.Filial
    On Error Resume Next
    If Len(Dir(Caminho, vbDirectory) & "") > 0 Then
         'Verifica se existe a pasta, caso sim prossegue
       Else
         'Caso não, cria a pasta
               If Len(Dir(Caminho, vbDirectory) & "") = 0 Then
               MkDir Caminho
       End If
    End If
    End Sub

    Desde já agradeço a quem puder me ajudar
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Criar pastas e subpastas conforme valores em caixa de texto Empty Re: [Resolvido]Criar pastas e subpastas conforme valores em caixa de texto

    Mensagem  Avelino Sampaio 13/4/2017, 08:26

    Olá!

    Com o MkDir terá que criar pasta por pasta

    Mkdir "C:\Pasta1\Pasta2\Pasta3\2017"
    MkDir "C:\Pasta1\Pasta2\Pasta3\2017\Valorcampo2"
    MkDir "C:\Pasta1\Pasta2\Pasta3\2017\Valorcampo2\ValorCampo3"

    Sucesso!
    Marceff@bol.com.br
    Marceff@bol.com.br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 26/04/2011

    [Resolvido]Criar pastas e subpastas conforme valores em caixa de texto Empty Criar pastas e subpastas conforme valores em caixa de texto

    Mensagem  Marceff@bol.com.br 13/4/2017, 13:11

    Bom Dia!!!

    Perfeito Avelino, farei desta forma então, mas como que eu consigo passar o valor dos campos, que serão vários, para a função afim de que ela crie as pastas conforme o que está nos campos, inclusive o de data, há esqueci de mencionar, o campo Ano já vem com a fórmula =Agora() os demais serão textos digitados.

    Mais uma vez agradeço a atenção.

    Marceff@bol.com.br
    Marceff@bol.com.br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 26/04/2011

    [Resolvido]Criar pastas e subpastas conforme valores em caixa de texto Empty Re: [Resolvido]Criar pastas e subpastas conforme valores em caixa de texto

    Mensagem  Marceff@bol.com.br 15/4/2017, 04:57

    Boa Noite!!!

    Pesquisei bastante no fórum e em outros também e acabei encontrando a solução para o que eu precisava, realmente como o Avelino me disse foi necessário criar as pastas uma a uma, mas o que eu precisava era como criar estas pastas baseado em valores de campos existentes em meu formulário.

    Bom, deixo o link do meu formulário para servir de exemplo para estudos a quem precisar, descompacte a pasta NomeAplicação diretamente na unidade C:\ para poder usar corretamente o sistema, obrigado!!!

    Criar pastas e arquivo conforme nome em campos

    Conteúdo patrocinado


    [Resolvido]Criar pastas e subpastas conforme valores em caixa de texto Empty Re: [Resolvido]Criar pastas e subpastas conforme valores em caixa de texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 12:01