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]copiar pasta de um diretório para outro

    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]copiar pasta de um diretório para outro Empty copiar pasta de um diretório para outro

    Mensagem  aguiar 12/1/2012, 21:12

    Ola
    Quero copiar pasta de um diretório para outro
    Sendo que no meu formulario tem os campos informado:
    1- EndereçoPasta =
    C:\Users\Administrador\Documents\FOTOS 2012\Fotos 2012 - Ribeiro\68-12=REP68000-OSCAR-RIBEIRO ( essa ultima é a pasta criada)
    2- Local Pasta Criada =
    C:\Users\Administrador\Documents\FOTOS 2012\Fotos 2012 - Ribeiro ( sendo que essa ultima pasta muda de acordo com nome escolhido no formulario, elas já estão no diretório C:\Users\Administrador\Documents\FOTOS 2012\ )
    3- Nome Pasta Fotos =
    68-12=REP68000-OSCAR-RIBEIRO ( esse nome muda de acordo com os dados do formulario)
    Estou conseguindo criar as pasta nos diretórios, de acordo com os nomes que coloco no formulario. isso resolvido
    usando esse comando consigo copiar a pasta, mas fico preso a um diretório somente
    ----------------
    Private Sub COPIARPASTAPERITO_Click()
    Dim CopiaSegura As Object
    Dim Caminho As String
    Caminho = "C:\Users\Administrador\Documents\FOTOS 2012"
    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
    CopiaSegura.CopyFolder "C:\Users\Administrador\Documents\FOTOS 2012\Fotos 2012 - Ribeiro\" & Me.NomeDaPastas.Value, "C:\formatos\Fotos 2012\" & Me.NomeDaPastas.Value
    'CopiaSegura.CopyFolder "Me.EndereçoPasta.Value\" & Me.NomeDaPastas.Value, "C:\formatos\Fotos 2012\" & Me.NomeDaPastas.Value '( essa linha da erro)
    End Sub

    --------------------------
    Quero copiar a pasta para outro diretório logo depois que eu colocar as fotos dentro dela
    Estou criando a pasta com esse código que funciona perfeito.

    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.LocalPastaCriada) Then
    MsgBox "O campo que informa o caminho está vazio!"
    Me.LocalPastaCriada.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.LocalPastaCriada.Value & "\" & Me.NomeDaPastas.Value) Then
    MsgBox "A pasta já existe!"
    Else
    MkDir (Me.LocalPastaCriada.Value & "\" & Me.NomeDaPastas.Value)
    'Me.LocalPasta.Value = Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value
    Me.NomeDaPastas.Requery
    MsgBox "Nova pasta criada!"
    Dim aplicativo As String
    Dim Arquivo As String
    aplicativo = "c:\WINDOWS\explorer.exe"
    Arquivo = Me.EndereçoPasta.Value
    'Me.Requery
    Call Shell(aplicativo & " " & Chr(34) & Arquivo, vbMaximizedFocus)
    End If
    End If
    Me.Qtde_fotos.SetFocus

    End Sub

    -------------------------------
    avatar
    Convidad
    Convidado


    [Resolvido]copiar pasta de um diretório para outro Empty Re: [Resolvido]copiar pasta de um diretório para outro

    Mensagem  Convidad 12/1/2012, 21:45

    Olá

    Vai encontrar o que precisa aqui:

    http://maximoaccess.forumeiros.com/t913-fso-filesystemobject-para-manipularmos-arquivos

    Localize o código que copia pasta / copia pasta com arquivos.
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]copiar pasta de um diretório para outro Empty Re: [Resolvido]copiar pasta de um diretório para outro

    Mensagem  aguiar 13/1/2012, 09:24

    Obrigado Norbs
    Vou verificar, depois retorno
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]copiar pasta de um diretório para outro Empty Re: [Resolvido]copiar pasta de um diretório para outro

    Mensagem  aguiar 13/1/2012, 15:57

    Norbs
    Como sempre nos ajudando, muito obrigado
    Esse código reslveu meu problema


    Sub COPIARPASTA_Click()

    'Sub CopiaPastaExistente()
    Dim fso
    Dim sfol As String, dfol As String
    sfol = Me.EndereçoPasta ' caminho de origem da pasta
    dfol = "C:\formatos\Fotos 2012\" & Me.NomeDaPastas.Value ' caminho de destino da pasta
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(dfol) Then
    fso.CopyFolder sfol, dfol
    MsgBox "PASTA CRIADA!"
    Me.NovoRegistro.SetFocus
    Else
    MsgBox dfol & " existente!", vbExclamation, "Sucesso"
    Me.NovoRegistro.SetFocus
    End If
    End Sub
    avatar
    Convidad
    Convidado


    [Resolvido]copiar pasta de um diretório para outro Empty Re: [Resolvido]copiar pasta de um diretório para outro

    Mensagem  Convidad 13/1/2012, 17:55

    Disponha. Agradeço o retorno!

    Conteúdo patrocinado


    [Resolvido]copiar pasta de um diretório para outro Empty Re: [Resolvido]copiar pasta de um diretório para outro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:07