Help! Excel VBA to copy folder from X to X

[harky]

How to get this work?

Sub CopyFolders()
     
    Dim FSO As Object
    Dim OldFolder As String, NewFolder As String
     
    OldFolder = Range("A" & i).Value
    NewFolder = Range("B" & i).Value
     
    Set FSO = CreateObject("Scripting.FileSystemObject")
     
    For i = 7 To Range("A" & Rows.Count).End(xlUp).Row
        If FSO.FolderExists(OldFolder & Cells(i, 1).Value) Then
            FSO.CopyFolder OldFolder & Cells(i, 1).Value, NewFolder & Cells(i, 1).Value, True
        End If
    Next i
     
    Set FSO = Nothing
     
    MsgBox "Copy Complete"
     
End Sub

 

[harky]

Copy & create folder

C:\Report\01012\1234	E:\Report\01012\1234

 

[harky]

I had many folder to copy to multiple location.

So best it go by path.

 

[harky]

I need some help.. i had some error on the C col.. but no idea what is wrong

Sub FolderCopy()
    Dim FSO As Object
    Dim strFromFolder As String
    Dim strToFolder As String
    Dim lr As Long

Set FSO = CreateObject("scripting.filesystemobject")


lr = Cells(Rows.Count, "A").End(xlUp).Row
For X = 2 To lr
strFromFolder = Range("A" & X).Value


'Destination directory
strToFolder = Range("B" & X).Value

'get project id
    FSO.CopyFolder _
        Source:=strFromFolder, Destination:=strToFolder, overwritefiles:=True
        
        
        On Error GoTo 0
        If Err.Number <> 0 Then
             Range("C" & X).Value = "Copy error"
        Else
             Range("C" & X).Value = "Success"
        End If
        Next X
End Sub

 

[harky]

any one can help me? thx.

i think this part got error

        On Error GoTo 0
        If Err.Number <> 0 Then
             Range("C" & X).Value = "Copy error"
        Else
             Range("C" & X).Value = "Success"
        End If
        Next X

 

[harky]

Hi Found my ans. And this is the code. Thanks

A	B	C
Source Directory	Destination Directory	Status
C:\Users\ABC\Desktop\TL_DB\Test1	E:\Test\	Copy Fail or Success

Sub FolderCopy()
    Dim fso As Object, strFromFolder As String, strToFolder As String, x As Long

    Set fso = CreateObject("Scripting.FileSystemObject")

    For x = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        strFromFolder = Range("A" & x).Value
        strToFolder = Range("B" & x).Value

        If Len(Dir(strFromFolder, vbDirectory)) = 0 Or Len(Dir(strToFolder, vbDirectory)) = 0 Then
            Range("C" & x).Value = "Copy Error"
        Else
            fso.CopyFolder Source:=strFromFolder, Destination:=strToFolder, overwritefiles:=True
            Range("C" & x).Value = "Success"
        End If
    Next x
End Sub

 

[YasserKhalil]

Hello
You have to put any links of the question

VBA to copy whole folder from X to X based on list

I had a code that will copy whole folder from A location to B location, but there is a error on the ... X).Value =...

ask.wellsr.com

 

[harky]

Thanks for the help....

@

VBA to copy whole folder from X to X based on list

I had a code that will copy whole folder from A location to B location, but there is a error on the ... X).Value =...

ask.wellsr.com

Hello
You have to put any links of the question

VBA to copy whole folder from X to X based on list

I had a code that will copy whole folder from A location to B location, but there is a error on the ... X).Value =...

ask.wellsr.com