ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

COPIAR DIRETÓRIO PARA PENDRIVE

Dúvidas gerais sobre Excel
Avatar do usuário
TARSA
Colaborador
Colaborador
Mensagens: 33
Registrado em: Dom Set 11, 2016 5:04 pm

COPIAR DIRETÓRIO PARA PENDRIVE

Mensagem por TARSA » Qui Jul 26, 2018 7:28 pm

Boa noite,

Preciso criar um código que copie todo o conteúdo de um determinado diretório e sub diretórios do meu P.C e o sobrescreva no meu pendrive, mas não estou obtendo exito. Estou usando a seguinte linha:

Sub Copiar_dir()

Shell "cmd /c xcopy /y /e C:\ORIGEM\*.* F:\DESTINO\"

End Sub

Alguém pode me dar uma ajuda?



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1122
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Betim - MG
Contato:

Re: COPIAR DIRETÓRIO PARA PENDRIVE

Mensagem por Mikel Silveira Fraga » Sex Jul 27, 2018 6:41 am

Tarsa, bom dia.

Veja se esse vídeo não lhe ajuda com essa operação. Segue link abaixo:
- Manipulando Diretórios e Arquivos

Dúvidas, a disposição.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Linked In

Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1407
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: COPIAR DIRETÓRIO PARA PENDRIVE

Mensagem por Reinaldo » Sex Jul 27, 2018 5:57 pm

Costumo utiliza rotinas obtidas no site de Rondebruin: http://www.rondebruin.nl/folder.htm
Experimente

Código: Selecionar todos

Sub Copy_Folder()
'This example copy all files and subfolders from FromPath to ToPath.
'Note: If ToPath already exist it will overwrite existing files in this folder
'if ToPath not exist it will be made for you.
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String

    FromPath = "C:\Users\Ron\Data"  '<< Change
    ToPath = "C:\Users\Ron\Test"    '<< Change

    'If you want to create a backup of your folder every time you run this macro
    'you can create a unique folder with a Date/Time stamp.
    'ToPath = "C:\Users\Ron\" & Format(Now, "yyyy-mm-dd h-mm-ss")

    If Right(FromPath, 1) = "\" Then
        FromPath = Left(FromPath, Len(FromPath) - 1)
    End If

    If Right(ToPath, 1) = "\" Then
        ToPath = Left(ToPath, Len(ToPath) - 1)
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
    End If
    FSO.CopyFolder Source:=FromPath, Destination:=ToPath
    MsgBox "You can find the files and subfolders from " & FromPath & " in " & ToPath
End Sub


Reinaldo
:oops: :D :mrgreen: :geek:

Avatar do usuário
TARSA
Colaborador
Colaborador
Mensagens: 33
Registrado em: Dom Set 11, 2016 5:04 pm

Re: COPIAR DIRETÓRIO PARA PENDRIVE

Mensagem por TARSA » Sáb Jul 28, 2018 12:59 pm

Prezados,

Mikel e Reinaldo, adaptei os códigos e referências postadas por vocês e está funcionando perfeitamente. Muito obrigado.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder