Copy folder contents using VBScript

Question

I am trying to copy the contents of certain folders to another folder using VBScript.

The goal is to enumerate a user's AD groups and then copy specific folder content based on those groups.

I have code, which is currently not working.

Dim Group,User,objFSO,objFolder,source,target,StrDomain

StrDomain = "domain.local"
FolderBase = "\\domain.local\netlogon\workgrps\icons"
Set net = CreateObject("wscript.network")
Struser = net.username
target = "\\fs1\users\"&net.username&"\Desktop\AppIcons\"

DispUserInWhichGroup()

Function DispUserInWhichGroup()

On Error Resume Next

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set User = GetObject("WinNT://" & strDomain & "/" & strUser & ",user")

For Each Group In User.Groups

source = FolderBase & Group.name

Set objFolder = GetFolder(source)

For Each file in objFolder.Files
objFSO.CopyFile source &"\"& file.name, target&"\"&file.name
Next

Next

End Function

This has been cobbled together from various sources, and I'm sure most of it is right, I just can't get it working completely.

Any assistance would be great.

Cheers.

Answer 1

Try removing the second \ in the copy statement

For Each file in objFolder.Files
   objFSO.CopyFile source & "\" & file.name, target & file.name
Next

Also you could use the file objects copy method like this

For Each file in objFolder.Files
   file.Copy target & file.name
Next

Answer 2

Remove the

On Error Resume Next

line from your function and then you will see any errors that are happening.

EDIT: I think you need to specify an object for GetFolder.

Set objFolder = objFSO.GetFolder(source)

Answer 3

The destination folder does not have to exist, but it must be specified:

C:\Z to C:\A\Z will work, but C:\Z to C:\A will not work.

The folder that the new folder will be in must exist:

C:\A must exist, but C:\A\Z does not have to.

The trailing slashes should be omitted:

C:\Z to C:\A\Z will work but C:\Z\ to C:\A\Z\ will not work.