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


3 participantes

    [Resolvido]Criar Pasta e SubPastas dentro dela

    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Criar Pasta e SubPastas dentro dela Empty [Resolvido]Criar Pasta e SubPastas dentro dela

    Mensagem  Daluque Qui 27 Abr - 8:55

    Bom dia,
    Utilizo o código abaixo para criar uma subpasta (em C:\Casos) cujo nome será o valor do campo "CodPre".
    agora estou tentando criar mais três subpastas dentro desta pasta criada (valor de CodPre) e não estou
    conseguindo. Seria:

    CodPre + Geral
    CodPre + Psicologia
    CodPre + ServSocial




    Private Sub Codpre_AfterUpdate()
    'habilite a referencia Microsoft Scripting Runtime
    'By JPaulo ® Maximo Access

    Dim fso As Object
    Dim nfol As String


    Set fso = CreateObject("Scripting.FilesystemObject")
    nfol = "C:\Casos\" & Me.Codpre.Value

    If Not fso.FolderExists(nfol) Then
    fso.CreateFolder (nfol)
    Else
    Exit Sub
    End If
    Me.Pasta.Value = nfol
    Me.Pasta.Requery


    End Sub

    Desde já agradeço.


    .................................................................................
    Daluque

    Office 2003
    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 01/03/2016

    [Resolvido]Criar Pasta e SubPastas dentro dela Empty Re: [Resolvido]Criar Pasta e SubPastas dentro dela

    Mensagem  adriano.ig Qui 27 Abr - 11:01

    Bom dia Daluque! Recentemente precisei fazer um código desse. Então disponibilizo aqui pra você. No caso ele está aplicado ao evento ao clicar de um botão de comando, mas você pode adptar pra realidade do teu banco:

    Código:
     ' Definir a referência à biblioteca do sistema de arquivos do Windows
        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
       
        ' Definir o caminho para a pasta principal
        Dim parent_folder As String
        parent_folder = "C:\Casos\"
       
        ' Definir o valor do campo CodPre
        Dim cod_pre As String
        cod_pre = Me.codPre.Value
       
        ' Criar a pasta com base no valor de CodPre
        Dim new_folder As Object
        Set new_folder = fso.CreateFolder(parent_folder & cod_pre)
       
        ' Criar as subpastas dentro da pasta criada com base no valor de CodPre
        Dim subfolders As Variant
        subfolders = Array("Geral", "Psicologia", "ServSocial")
        Dim subfolder As Variant
        For Each subfolder In subfolders
            fso.CreateFolder new_folder.Path & "\" & subfolder
        Next subfolder
       
        ' Liberar a memória do objeto FileSystemObject
        Set fso = Nothing

    Aguardo retorno.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2739
    Registrado : 23/01/2018

    [Resolvido]Criar Pasta e SubPastas dentro dela Empty Re: [Resolvido]Criar Pasta e SubPastas dentro dela

    Mensagem  crysostomo Qui 27 Abr - 11:14

    Private Sub Comando5_Click()
    'habilite a referencia Microsoft Scripting Runtime
    'By JPaulo ® Maximo Access

    Dim fso As Object
    Dim nfol As String
    Dim subPasta As String
    Set fso = CreateObject("Scripting.FilesystemObject")
    nfol = "C:\Casos\" & Me.codpre.Value
    If Not fso.FolderExists(nfol) Then
    fso.CreateFolder (nfol)


    Else
     MkDir nfol & "\" & Me.subPasta.Value
     
                 

    Exit Sub
    End If
    End Sub


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2739
    Registrado : 23/01/2018

    [Resolvido]Criar Pasta e SubPastas dentro dela Empty Re: [Resolvido]Criar Pasta e SubPastas dentro dela

    Mensagem  crysostomo Qui 27 Abr - 11:16

    Opa, adriano.ig. Entrou junto.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Criar Pasta e SubPastas dentro dela Empty Re: [Resolvido]Criar Pasta e SubPastas dentro dela

    Mensagem  Daluque Qui 27 Abr - 13:35

    Olá amigos.

    Adriano: apliquei, fiz uns testes e seu código deu certo.

    obrigado aos amigos.


    .................................................................................
    Daluque

    Office 2003

    crysostomo gosta desta mensagem

    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 01/03/2016

    [Resolvido]Criar Pasta e SubPastas dentro dela Empty Re: [Resolvido]Criar Pasta e SubPastas dentro dela

    Mensagem  adriano.ig Qui 27 Abr - 15:31

    Maravilha Daluque!

    Sucesso em seus projetos! [Resolvido]Criar Pasta e SubPastas dentro dela 1f600

    Conteúdo patrocinado


    [Resolvido]Criar Pasta e SubPastas dentro dela Empty Re: [Resolvido]Criar Pasta e SubPastas dentro dela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Seg 7 Out - 18:17