'strSourceFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "") & "Build1\" 'On Error Resume Next strSourceFolder = WScript.Arguments.Item(0) strTargetFolder = WScript.Arguments.Item(1) strSource=strSourceFolder If Right(strSourceFolder, 1) <> "\" Then strSourceFolder = strSourceFolder & "\" If Right(strTargetFolder, 1) <> "\" Then strTargetFolder = strTargetFolder & "\" Const FOF_CREATEPROGRESSDLG = &H10& Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strSourceFolder) Set objShellApp = CreateObject("Shell.Application") Set objFolder = objShellApp.NameSpace(strTargetFolder) If Not objFolder Is Nothing Then 'MsgBox "Copying " & objFile.Path & " to " & strTargetFolder objFolder.CopyHere strSourceFolder, FOF_CREATEPROGRESSDLG Else WScript.Echo "There was an error finding " & strTargetFolder End If 'MsgBox strSourceFolder objFSO.DeleteFolder strSource,True if Err.Number <> 0 then MsgBox "Got error while deleting source folder in Software Archive (restricted) with error number " & Err.Number & ":" & Err.Description WScript.Quit Err.Number end if MsgBox "Completed Successfully"