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]Rotina criar Pasta e SubPasta

    avatar
    brunoluizmaia
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido]Rotina criar Pasta e SubPasta Empty [Resolvido]Rotina criar Pasta e SubPasta

    Mensagem  brunoluizmaia 23/5/2019, 15:12

    Boas,

    Pessoal estou precisando criar uma rotina para a criação de subpasta, hoje já crio a pasta, mas por padrão da empresa preciso criar as subpastas no servidor. No BD utilizo a rotina abaixo:

    Na criação desta pasta preciso criar mais as subpastas.

    Documentos
    Entrada_Saida
    NC_Clientes
    NC_Empresa
    Pecas_Plasticas
    Registos_Producao
    Teste_Acido



    Código:
    On Error Resume Next
        Dim fso As Object
        Dim Pasta As String
        Dim numcrtl As String
        Dim nummld As String
        Dim nmclt As String
        Dim ext As String
        Dim Caminho As String
       
        numcrtl = Form_Documento_Controlo.Num_Doc_Controlo.Value
        nummld = Form_Documento_Controlo.NumeroMolde.Value
        nmclt = Form_Documento_Controlo.NomeCliente.Value
       
       
       
        Pasta = "\\2425FS01\Jobs\DB_Sis_Fabrico_em_teste\" & numcrtl & "-" & nummld & "-" & nmclt
       
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(Pasta) Then ' verifica se já existe a pasta
        Else
        MkDir Pasta ' se não existir cria
        End If


    Desde já agradeço as ajudas que tenho até o momento.

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Rotina criar Pasta e SubPasta Empty Re: [Resolvido]Rotina criar Pasta e SubPasta

    Mensagem  Marcelo David 23/5/2019, 16:12

    Bom dia,
    Basta usar a mesma rotina para criar pasta dentro da pasta já criada.


    .................................................................................
    [Resolvido]Rotina criar Pasta e SubPasta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Rotina criar Pasta e SubPasta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Rotina criar Pasta e SubPasta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Rotina criar Pasta e SubPasta Marcel11
    avatar
    brunoluizmaia
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido]Rotina criar Pasta e SubPasta Empty Re: [Resolvido]Rotina criar Pasta e SubPasta

    Mensagem  brunoluizmaia 23/5/2019, 16:52

    Marcelo, Boa tarde!!

    Obrigado pela ajuda, deu certo! E para excluir?

    A rotina que utilizava para excluir sem as subpastas não está funcionando, criei a rotina abaixo e não funcionou.

    Código:
    Private Sub btn_excluir_Click()
     On Error Resume Next
       
        Dim Pasta As String
        Dim numcrtl As String
        Dim nummld As String
        Dim nmclt As String
        Dim a As String
        Dim b As String
        Dim c As String
        Dim d As String
        Dim e As String
        Dim f As String
        Dim g As String
       
        numcrtl = Form_Documento_Controlo.Num_Doc_Controlo.Value
        nummld = Form_Documento_Controlo.NumeroMolde.Value
        nmclt = Form_Documento_Controlo.NomeCliente.Value
        a = Pasta & "\Documentos" 'cria subpasta
        b = Pasta & "\Entrada_Saida" 'cria subpasta
        c = Pasta & "\NC_Cliente" 'cria subpasta
        d = Pasta & "\NC_Eschamman"
        e = Pasta & "\Pecas_Plasticas" 'cria subpasta
        f = Pasta & "\Registo_Producao" 'cria subpasta
        g = Pasta & "\Teste_Acido" 'cria subpasta
        Pasta = "\\2425FS01\Jobs\DB_Sis_Fabrico_em_teste\" & numcrtl & "-" & nummld & "-" & nmclt
       
        RmDir (a) 'Exclui pasta
        RmDir (b) 'Exclui pasta
        RmDir (c) 'Exclui pasta
        RmDir (d) 'Exclui pasta
        RmDir (e) 'Exclui pasta
        RmDir (f) 'Exclui pasta
        RmDir (g) 'Exclui pasta
        RmDir (Pasta) 'Exclui pasta

        If MsgBox("Este procedimento irá excluir este registro definitivamente ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
        Else
        End If

     DoCmd.RunCommand acCmdRecordsGoToNew
     
    End Sub



    avatar
    brunoluizmaia
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido]Rotina criar Pasta e SubPasta Empty Re: [Resolvido]Rotina criar Pasta e SubPasta

    Mensagem  brunoluizmaia 23/5/2019, 16:54

    Para registro coloco a rotina que criei para as subpastas.

    Código:
    On Error Resume Next
        Dim fso As Object
        Dim Pasta As String
        Dim numcrtl As String
        Dim nummld As String
        Dim nmclt As String
        Dim ext As String
        Dim Caminho As String
        Dim a As String
        Dim b As String
        Dim c As String
        Dim d As String
        Dim e As String
        Dim f As String
        Dim g As String
       
       
        numcrtl = Form_Documento_Controlo.Num_Doc_Controlo.Value
        nummld = Form_Documento_Controlo.NumeroMolde.Value
        nmclt = Form_Documento_Controlo.NomeCliente.Value
       
       
       
        Pasta = "\\2425FS01\Jobs\DB_Sis_Fabrico_em_teste\" & numcrtl & "-" & nummld & "-" & nmclt
       
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(Pasta) Then ' verifica se já existe a pasta
        Else
        MkDir Pasta ' se não existir cria
        End If

        a = Pasta & "\Documentos" 'cria subpasta
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(a) Then ' verifica se já existe a pasta
        Else
        MkDir a ' se não existir cria
        End If

        b = Pasta & "\Entrada_Saida" 'cria subpasta
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(b) Then ' verifica se já existe a pasta
        Else
        MkDir b ' se não existir cria
        End If
       
        c = Pasta & "\NC_Cliente" 'cria subpasta
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(c) Then ' verifica se já existe a pasta
        Else
        MkDir c ' se não existir cria
        End If
       
        d = Pasta & "\NC_Eschamman"
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(d) Then ' verifica se já existe a pasta
        Else
        MkDir d ' se não existir cria
        End If
       
        e = Pasta & "\Pecas_Plasticas" 'cria subpasta
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(e) Then ' verifica se já existe a pasta
        Else
        MkDir e ' se não existir cria
        End If
       
        f = Pasta & "\Registo_Producao" 'cria subpasta
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(f) Then ' verifica se já existe a pasta
        Else
        MkDir f ' se não existir cria
        End If
       
        g = Pasta & "\Teste_Acido" 'cria subpasta
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(g) Then ' verifica se já existe a pasta
        Else
        MkDir g ' se não existir cria
        End If
    avatar
    brunoluizmaia
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido]Rotina criar Pasta e SubPasta Empty Re: [Resolvido]Rotina criar Pasta e SubPasta

    Mensagem  brunoluizmaia 24/5/2019, 09:00

    Obrigado a ajuda! Dou o tópico como resolvido, conseguir criar e agora não excluir.

    Caso esse erro continue vou criar um novo tópico.

    Mais uma vez obrigado à todos do Forum que contribui a evolução e ajuda a novatos.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Rotina criar Pasta e SubPasta Empty Re: [Resolvido]Rotina criar Pasta e SubPasta

    Mensagem  Marcelo David 24/5/2019, 16:27

    Isso aí!
    Cada assunto em um tópico distinto!
    Feliz por esse assunto ter sido resolvido.
    Grato pelo retorno, o fórum agradece!


    .................................................................................
    [Resolvido]Rotina criar Pasta e SubPasta Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Rotina criar Pasta e SubPasta Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Rotina criar Pasta e SubPasta Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Rotina criar Pasta e SubPasta Marcel11

    Conteúdo patrocinado


    [Resolvido]Rotina criar Pasta e SubPasta Empty Re: [Resolvido]Rotina criar Pasta e SubPasta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 02:11