MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe
    avatar
    Marceff@bol.com.br
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Marceff@bol.com.br em Qui 13 Abr 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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Qui 13 Abr 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!
    avatar
    Marceff@bol.com.br
    Novato
    Novato

    Respeito às Regras 100%

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

    Criar pastas e subpastas conforme valores em caixa de texto

    Mensagem  Marceff@bol.com.br em Qui 13 Abr 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.

    avatar
    Marceff@bol.com.br
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Marceff@bol.com.br em Sab 15 Abr 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

      Data/hora atual: Qui 21 Set 2017, 02:37