Jump to content
Fórum Script Brasil
  • 0

Copiar arquivos de uma pasta para outr


Question

Pessoal, 

Eu sou super novo em VBA e surgiu uma demanda aqui no trabalho em que preciso copiar uma série de pastas zipadas da rede para pastas no meu PC. 

Com isso, escrevi o codigo a seguir, cujo objetivo é copiar a pasta da rede e colar na pasta local selecionada. A pasta da rede não muda, então coloquei o caminho dela já no código. Como a pasta local pode variar, coloquei para selecioná-la em uma célula do excel. Porém o código da erro e não tenho a mínima ideia de como posso corrigí-lo. Alguém poderia me ajudar?

Private Sub CommandButton1_Click()Dim FSO As Object
Dim FromFolder As String
Dim ToFolder As Variant
Dim NomeBase As Range
Dim ConjBase As Range
Dim xVal As String




Set NomeBase = Application.InputBox("Selecione as bases:", "Selecione as Bases", ActiveWindow.RangeSelection.Address, , , , , 8)
    If NomeBase Is Nothing Then Exit Sub
    
    FromFolder = "C:\Users\carlossantana.CARLOS\Downloads"
    
    ToFolder = Range("A1").Value
    
For Each ConjBase In NomeBase
        xVal = NomeBase.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy FromFolder & xVal, ToFolder & xVal
            Kill FromFolder & xVal
        End If
    Next
End Sub
Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148679
    • Total Posts
      644499
×
×
  • Create New...