I was able to get this to work
Code:
Dim sourceFile As String, destinationFile As String
Dim aFSO As Object
sourceFile = "C:\Test\Sub1"
destinationFile = "C:\Test\NewFolder"
Set aFSO = CreateObject("Scripting.FileSystemObject")
aFSO.CopyFolder sourceFile, destinationFile
Also, I was able to move a directory using the following. Just does not work if the destination folder already exists.
Code:
Dim sourceFile As String, destinationFile As String
Dim aFSO As Object
sourceFile = "C:\Test\Sub1"
destinationFile = "C:\Test\NewFolder"
Set aFSO = CreateObject("Scripting.FileSystemObject")
aFSO.MoveFolder sourceFile, destinationFile