copy multiple different root of source folder to different root of destination

[pikapikachiu]

i manage to copy from 1 row of source path folder to destination ( B2 to C2)
but i has trouble to write the code to continue loop copying from 2nd row & so on until empty cell value
can anyone help me to fix the code? i need its can loop continue fro ( B3:until end, to C3 until end)
below is the code of me

Sub sbCopyingAFolder()

Dim FSO

Dim sFolder As String, dFolder As String

sFolder = Range("B2").Value ' souces folder

dFolder = Range("C2").Value ' destination folder

Set FSO = CreateObject("Scripting.FileSystemObject")

If Not FSO.FolderExists(dFolder) Then

FSO.CopyFolder sFolder, dFolder

MsgBox "Folder Copied Successfully to The Destination", vbExclamation, "Done!"

Else

MsgBox "Folder Already Exists in the Destination", vbExclamation, "Folder Already Exists!"

End If

 

[frank_AL]

You can set a value to the last row in your spreadsheet and then use a For/Next loop to cycle through all records. See your revised code below.

Option Explicit


Sub sbCopyingAFolder()
Dim i As Long
Dim lastrow As Long
Dim FSO
Dim sFolder As String, dFolder As String




lastrow = Cells(Rows.Count, "B").End(xlUp).Row


For i = 2 To lastrow
    sFolder = Range("B" & i).Value ' souces folder
    dFolder = Range("C" & i).Value ' destination folder
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    If Not FSO.FolderExists(dFolder) Then
        FSO.CopyFolder sFolder, dFolder
        MsgBox "Folder Copied Successfully to The Destination", vbExclamation, "Done!"
    Else
        MsgBox "Folder Already Exists in the Destination", vbExclamation, "Folder Already Exists!"
    End If
Next i


End Sub

 

[pikapikachiu]

Thank you very much frank_AL, you help me alot for this.