VBScriptを使用してフォルダの内容をコピーする

Question

VBScriptを使用して特定のフォルダの内容を別のフォルダにコピーしようとしています。

目的は、ユーザーのADグループを列挙し、それらのグループに基づいて特定のフォルダコンテンツをコピーすることです。

私は現在、動作していないコードを持っています。

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 

これはさまざまなソースから一緒に石畳されていますが、私はそれが大丈夫だと確信しています。

ご協力いただければ幸いです。

乾杯。

Answer 1

のような方法をコピーし、あなたから

On Error Resume Next 

行を削除します関数を呼び出すと、発生しているエラーが表示されます。

EDIT：GetFolderのオブジェクトを指定する必要があると思います。

C：CにZ：\ \ A \ Zは動作しますが、C：Cへの\ Z：\ Aを先フォルダが存在する必要はありませんが、それを指定する必要があり

Set objFolder = objFSO.GetFolder(source) 

Answer 2

また、あなたは、ファイルオブジェクトを使用することができ

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

コピー文の2番目の\を削除してくださいこの

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

Answer 3

動作しないでしょう。

新しいフォルダが存在している必要がありますになりますフォルダ：

C：\ Aが存在している必要がありますが、C：\ A \ Zはする必要はありません。

後続のスラッシュを省略しなければならない：

C：Cへの\ Z：Cに\ Z \：\ A \ Zは動作が、Cう\ A \ Z \は動作しませんが。