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

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty escolher diretóriosub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  aguiar 6/1/2012, 20:23

    Boa tarde

    Tenho varios diretorios com sub diretório ao todo são dez e não mudam, e gostaria de criar pasta de acordo com o valor da caixa de texto ou combinação.
    ex diretórios : c:\ formatos\Fotos 2012 - Julio\
    c:\ formatos\Fotos 2012 - Ribeiro\
    ex caixa de combinação = valor caixa de combinão = Julio
    valor caixa de combinão = Ribeiro
    estou usando esse código que peguei aqui:
    mas só consigo um diretório

    ----------------------------
    Dim resultado As VbMsgBoxResult
    resultado = MsgBox("CRIAR PASTA DE FOTOS ?", vbYesNo, "Tomando uma decisão")
    If resultado = vbYes Then
    Dim fso As Object

    'habilite a referencia Microsoft Scripting Runtime
    'By JPaulo ® Maximo Access
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.folderexists("C:\formatos\Fotos 2012 - Julio\" & Me.NomeDaPastas.Value) Then ' verifica se já existe a pasta
    MsgBox "A pasta já existe!"
    Else
    MkDir ("C:\formatos\Fotos 2012 - Julio\" & "" & Me.NomeDaPastas.Value)
    Me.NomeDaPastas.Value = Me.NomeDaPastas.Value
    Me.NomeDaPastas.Requery
    End If
    Else
    MsgBox "NÃO CRIOU PASTA"
    End If
    ----------------------------------
    Se puderem me ajudar, desde já agradeço
    avatar
    Convidad
    Convidado


    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  Convidad 6/1/2012, 21:02

    Olá

    Mas a caixa de texto ou combo só aceita mesmo um valor de cada vez.
    Vc pode substituir o valor e repetir o procedimento.

    Ou entendi mal?
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty escolher diretóriosub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  aguiar 7/1/2012, 11:25

    O que eu quero é, se na combo conter o valor "Julio",
    eu crie uma pasta com o o valor que contem em outra caixa texto no diretorio
    "C:\formatos\Fotos 2012 - Julio\"
    se na combo conter valor "Ribeiro", eu crie uma pasta no diretório
    "C:\formatos\Fotos 2012 - Ribeiro\"
    O nome da pasta que vai criar vai ser o que estiver em outra caixa texto
    Os diretórios são fixos, não mudam, são dez nomes cadatrados na combo, cada nome tem seu diretório.
    avatar
    Convidad
    Convidado


    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  Convidad 7/1/2012, 11:47

    Olá

    Então vc quer criar uma nova subpasta (com o nome que estiver numa textbox/combo), ramificada numa pasta existente (cujo nome está em outra textbox/combo).

    É isto?
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  aguiar 7/1/2012, 11:53

    Sim, a pasta a ser criada com o nome determinado numa caixa texto eu já consigo, só quero definir o diretorio dela de acordo com o nome que aparece na combo
    avatar
    Convidad
    Convidado


    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  Convidad 7/1/2012, 12:44

    Teste assim:

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' verifica se existe o diretório
    If fso.folderexists("C:\formatos\" & Me.CampoComNomeDiretorio.Value) Then
    ' verifica se o campo com o nome da nova pasta tem um valor
    If Not IsNull(Me.CampoComNomeNovaPasta) Then
    MkDir ("C:\formatos\" & Me.CampoComNomeDiretorio.Value & "\" & Me.CampoComNomeNovaPasta.Value)
    Else
    MsgBox "Informe o nome da nova pasta!"
    End If
    Else
    MsgBox "O diretório não existe!!"
    End If
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  aguiar 7/1/2012, 14:41

    Ola
    Está retornado que não existe diretório e não cria pasta
    mas diretórios existem
    C:\formatos\Fotos 2012 - Julio
    C:\formatos\Fotos 2012 - Ribeiro
    dentro desses diretorio quero criar pasta com nome que esta na caixatesto (NomeDaPastas)
    Escolhendo diretório através da terceira coluna da combo que é o valor da caixa texto (LocalPasta)


    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' verifica se existe o diretório
    If fso.folderexists("C:\formatos\" & Me.LocalPasta.Value) Then
    ' verifica se o campo com o nome da nova pasta tem um valor
    If Not IsNull(Me.NomeDaPastas) Then
    MkDir ("C:\formatos\" & Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value)
    Else
    MsgBox "Informe o nome da nova pasta!"
    End If
    Else
    MsgBox "O diretório não existe!!"
    End If
    End Sub

    Desse jeito da a mensagem que não existe diretório, sendo que não preciso criar os mesmo pois já tem, quero que ache o diretório cujo nome está na caixa texto (C:\formatos\Fotos 2012 - Julio)e cria a nova pasta dentro
    avatar
    Convidad
    Convidado


    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  Convidad 7/1/2012, 14:53

    Mais um teste:

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' verifica se existe o diretório
    If fso.folderexists("C:\formatos\" & Me.LocalPasta.Column(2)) Then
    ' verifica se o campo com o nome da nova pasta tem um valor
    If Not IsNull(Me.NomeDaPastas) Then
    MkDir ("C:\formatos\" & Me.LocalPasta.Column(2) & "\" & Me.NomeDaPastas.Value)
    MsgBox "Pasta criada com sucesso!"
    Else
    MsgBox "Informe o nome da nova pasta!"
    End If
    Else
    MsgBox "O diretório não existe!"
    End If
    End Sub
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  aguiar 7/1/2012, 15:07

    continua dando mensagem que não existe diretório, e não cria pasta
    avatar
    Convidad
    Convidado


    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  Convidad 7/1/2012, 15:20

    Talvez o número de Column(2) esteja errado.
    Para o VBA a contagem de colunas começa em 0 e para SQL começa em 1.
    Então se o valor estiver na na 3ª coluna da combo, será Column(2).

    Confira, e se não for isso, talvez possa dispor o bd para uma verificação.
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  aguiar 7/1/2012, 15:59

    Vou postar aqui o bd , talves assim possa solucionar meu problema
    Obrigado
    Botão (1) cria a pasta, mas só e um lugar
    Botão (2) quero que cria a a pasta no diretório que aparece ncaixa texto ( Local Pasta Criada )
    Ok
    Anexos
    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Attachmentcriar pasta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (120 Kb) Baixado 49 vez(es)
    avatar
    Convidad
    Convidado


    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  Convidad 7/1/2012, 17:27

    Por favor, converta para 2003.
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty bd formato access 2003

    Mensagem  aguiar 7/1/2012, 20:21

    Ola Norbs
    Esse esta access 2003
    Assim que puder responda
    Obrigado
    Anexos
    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Attachmentcriar pasta access 2003.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 37 vez(es)
    avatar
    Convidad
    Convidado


    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  Convidad 8/1/2012, 19:19

    Olá

    É, os nomes de campos não correspondem.
    Basta editar...

    Uma sugestão:
    Vc usa uma estrutura de pastas assim: C:\formatos\Fotos 2012 - Ribeiro
    Para criar uma pasta a partir do nome "Ribeiro" fica complexo, pois não é o nome da pasta.
    Talvez fique melhor assim: C:\formatos\Fotos\2012\Ribeiro\

    Se concorda, já acerto o seu código para esta estrutura.
    Senão faço um bd de exemplo.

    Se possível, também alteraria os nomes de alguns campos. Por exemplo: Um nome como "Combinação16" não é nada significativo, certo?
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  aguiar 8/1/2012, 22:59

    Norbs
    por padrão tenho diretório assim para cada fotógrafo
    C:\formatos\Fotos 2012 - Julio
    C:\formatos\Fotos 2012 - Ribeiro
    só preciso criar dentro do diretório "C:\formatos\Fotos 2012 - Ribeiro", uma outra pasta com nome determinado na caixa texto "NomeDaPastas", lembrando que o diretório deve mudar de acordo com o nome do fotógrafo
    , quando for o fotógrafo Julio o diretório da nova pasta deve ser "C:\formatos\Fotos 2012 - Julio", quando for o fotógrafo Ribeiro o diretório da nova pasta deve ser "C:\formatos\Fotos 2012 - Ribeiro" .Quanto a nome caixa de combinação16 não tem problema mudar.
    obs: consigo criar a pasta de acordo com nome do fotógrafo no diretório "C:\formatos\" como no botão "1", eu não estou conseguindo que ela seja criada dentro das pasta de cada fotógrafo que está dentro de "C:\formatos\Fotos 2012 - Ribeiro\ (nova pasta criada) ou C:\formatos\Fotos 2012 - Julio\(nova pasta criada).
    Obrigado pela atenção
    Aguiar
    avatar
    Convidad
    Convidado


    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  Convidad 8/1/2012, 23:29

    [quote]
    "lembrando que o diretório deve mudar de acordo com o nome do fotógrafo"

    Certo! Só que os nomes de fotógrafos exibidos na combo Fotógrafo são JULIO e RIBEIRO. Então como eu vou dizer ao Access para ele criar a pasta TAL ramificada da pasta cujo nome é igual ao nome que consta na combo Fotógrafo, se não existe nenhuma pasta chamada JULIO ou RIBEIRO, e sim pastas chamadas Fotos 2012 - Julio e Fotos 2012 - Ribeiro?

    Por isso sugeri mudar o nome dos diretórios.
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  aguiar 9/1/2012, 09:49

    Ola
    Bom Dia Norbs
    Vou tentar esclarecer melhor:
    1º- Tenho varios diretórios como o que aparece na caixa texto "LocalPasta" quando seleciono um nome na caixa de combinação
    Fotografo "combinação16", por exemplo seleciono Julio apareçe "C:\formatos\Fotos 2012 - Julio",na caixa texto "LocalPasta"
    Esse deve ser o local da nova pasta a ser criada com nome que aparece na caixa texto "NomeDaPastas"
    2º- Com o botão "1" eu consigo criar essa pasta mas só dentro de formatos ou dentro da pasta "Fotos 2012 - Julio" se deixar o código assim " MkDir ("C:\formatos\Fotos 2012 - Julio\" & "" & Me.NomeDaPastas.Value)"
    3º- Quanto ao nome das pastas a serem criadas, já funciona no código, o problema é ela serem criadas dentro de cada pasta - Fotos 2012 "nome fotografo" de acordo com caixa texto "LocalPasta"
    4º- Os diretórios que tenho e que aparecem na caixa texto de acodo com nome são:
    C:\formatos\Fotos 2012 - Julio
    C:\formatos\Fotos 2012 - Ribeiro
    Na verdade são dez fotógrafos, cada um tem seu diretório no computador.
    avatar
    Convidad
    Convidado


    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  Convidad 9/1/2012, 20:49

    Testado e funcionando!

    Private Sub Comando123_Click()
    'adaptado por Norberto Rost
    'objetivo: criar nova pasta de Fotógrafo a partir de C:\formatos
    'verifica se o nome da nova pasta foi informado
    If IsNull(Me.NomeDaPastas) Then
    MsgBox "Preencha o campo que informa o nome para a pasta."
    Me.NomeDaPastas.SetFocus
    Exit Sub
    End If
    Dim resultado As VbMsgBoxResult
    resultado = MsgBox("Criar pasta de Fotógrafo?", vbYesNo, "Confirmação")
    If resultado = vbYes Then
    'habilite a referencia Microsoft Scripting Runtime
    'By JPaulo ® Maximo Access
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    'verifica se já existe a pasta
    If fso.folderexists("C:\formatos\" & Me.NomeDaPastas.Value) Then
    MsgBox "A pasta já existe!"
    Else
    MkDir ("C:\formatos\" & Me.NomeDaPastas.Value)
    Me.LocalPasta.Value = "C:\formatos\" & Me.NomeDaPastas.Value
    Me.LocalPasta.Requery
    MsgBox "Nova pasta criada!"
    End If
    End If
    End Sub

    Private Sub Comando128_Click()
    'adaptado por Norberto Rost
    'objetivo: criar nova subpasta para Fotógrafo a partir da pasta do Fotógrafo atual
    'verifica se o nome da nova pasta foi informado no campo NomeDaPastas
    If IsNull(Me.NomeDaPastas) Then
    MsgBox "Preencha o campo que informa o nome para a pasta."
    Me.NomeDaPastas.SetFocus
    Exit Sub
    End If
    'verifica se existe um caminho no campo LocalPasta
    If IsNull(Me.LocalPasta) Then
    MsgBox "O campo que informa o caminho está vazio!"
    Me.LocalPasta.SetFocus
    Exit Sub
    End If
    Dim resultado As VbMsgBoxResult
    resultado = MsgBox("Criar nova subpasta para este Fotógrafo?", vbYesNo, "Confirmação")
    If resultado = vbYes Then
    'habilite a referencia Microsoft Scripting Runtime
    'By JPaulo ® Maximo Access
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    'verifica se existe esta subpasta
    If fso.folderexists(Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value) Then
    MsgBox "A pasta já existe!"
    Else
    MkDir (Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value)
    Me.LocalPasta.Value = Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value
    Me.LocalPasta.Requery
    MsgBox "Nova pasta criada!"
    End If
    End If
    End Sub

    Arquivo modificado:
    Anexos
    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Attachmentcriar pasta access 2003.zip
    (37 Kb) Baixado 74 vez(es)
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Resolvido

    Mensagem  aguiar 9/1/2012, 21:13

    Private Sub Comando128_Click()
    'adaptado por Norberto Rost
    'objetivo: criar nova subpasta para Fotógrafo a partir da pasta do Fotógrafo atual
    'verifica se o nome da nova pasta foi informado no campo NomeDaPastas
    If IsNull(Me.NomeDaPastas) Then
    MsgBox "Preencha o campo que informa o nome para a pasta."
    Me.NomeDaPastas.SetFocus
    Exit Sub
    End If
    'verifica se existe um caminho no campo LocalPasta
    If IsNull(Me.LocalPasta) Then
    MsgBox "O campo que informa o caminho está vazio!"
    Me.LocalPasta.SetFocus
    Exit Sub
    End If
    Dim resultado As VbMsgBoxResult
    resultado = MsgBox("Criar nova subpasta para este Fotógrafo?", vbYesNo, "Confirmação")
    If resultado = vbYes Then
    Norbs quero te agradecer muito, matou em cima o que eu queria
    Só tirei uma linha pois não queria que atualizaçe "NomeDaPastas"
    para impedir de criar a mesma pasta dentro de outra.
    Agora vou ver se consigo abrir a pasta após ser criada
    Muito Obrigado pela ajuda

    'habilite a referencia Microsoft Scripting Runtime
    'By JPaulo ® Maximo Access
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    'verifica se existe esta subpasta
    If fso.folderexists(Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value) Then
    MsgBox "A pasta já existe!"
    Else
    MkDir (Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value)
    'Me.LocalPasta.Value = Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value
    Me.LocalPasta.Requery
    MsgBox "Nova pasta criada!"
    End If
    End If
    End Sub
    avatar
    Convidad
    Convidado


    [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação Empty Re: [Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

    Mensagem  Convidad 9/1/2012, 21:23

    Muito bom!

    O fórum agradece o retorno!

      Data/hora atual: 28/11/2022, 01:51