Copy Folders Using the Shell Object

I never encountered this, although do you need to use the Shell to copy folders?

If not, you could also try using "Microsoft Scripting Runtime"

To do so, in your VBA editor, click" Tools > References" and add the reference for "Microsoft Scripting Runtime"

Now you can do the following:

Dim mySystemObject As New FileSystemObject


Call mySystemObject.CopyFolder("\\Server1\setup\tools", "\\Server2\Tools")

From my point of view MS has for the last 2-3 year become much better to provide us with good examples although we sometimes need to fix the problems by ourself

Anyway, I would go with the FileSystemObject-approach instead as in my experience it's reliable and straightforward.

Kind regards,
Dennis

Will the following be of any help for You?

[vba]
Option Explicit
Private fsoObj As Scripting.FileSystemObject

Sub Copy_Folders_New_Location()
Const stSourceFolder As String = "c:\Test\excelkb"
Const stTargetFolder As String = "f:\Backups\excelkb"

Set fsoObj = New Scripting.FileSystemObject

With fsoObj
If Not .FolderExists(stTargetFolder) Then
Call Create_Folder(stTargetFolder)
End If
.CopyFolder Source:=stSourceFolder, Destination:=stTargetFolder, OverWriteFiles:=True
End With

MsgBox "The folder " & stSourceFolder & _
" successfully copied to " & stTargetFolder & ".", vbInformation

Set fsoObj = Nothing
End Sub

Public Function Create_Folder(stNewFolder As String)
Dim stFolder As String
Dim vaPath As Variant
Dim i As Long

With fsoObj
stFolder = .GetDriveName(stNewFolder) & Application.PathSeparator
vaPath = Split(Trim(stNewFolder), "\")
For i = 1 To UBound(vaPath)
stFolder = .BuildPath(stFolder, vaPath(i))
If .FolderExists(stFolder) Then GoTo Nextlevel
.CreateFolder stFolder
Nextlevel:
Next i
End With
End Function
[/vba]

Kind regards,
Dennis

We all do mistakes and we are all forgiven, great You got it sorted out in the end

Kind regards,
Dennis