As Technet Gallery is retiring so moving the code to Git Hub. (click below link, creating first link to my blog for those who are unfamiliar with github)

 

https://techwizard.cloud/2011/04/28/robocopy-for-launching-multiple-concurrent-sessions/

 

 

 

PowerShell Version of this script:

http://techwizard.cloud/2016/02/22/powershell-robocopy-launching-multiple-concurrent-sessions/

https://gallery.technet.microsoft.com/scriptcenter/PowerShell-Robocopy-1b4e1cec

Hi Readers,

This is the script that We  have used for migration of file server data to different file server.

We have consumed maximum thoroughput by launching multiple sessions for robocopy.

Script reads the file for the folders that needs to be mirrored & launch a new robocopy session every 60 seconds.

Beauty is that it will log only diffrences as we have used find command.

Script path :- C:\Scripts\robocopy

script folder contents

Download ths zip file from above change the source & destination paths in the robocopymulti.vbs (as per your requirement)  

Zip file contains example as well for better understanding the functioning of the script.

enter the names of folders inside source (readfile.txt)

 

Update 02/22/2016 :- Powershell version of this script

https://gallery.technet.microsoft.com/scriptcenter/PowerShell-Robocopy-1b4e1cec

VB Script
Edit|Remove
'####################################################################### 
'#       Author: Vikas Sukhija  
'#       Date: 04/28/2011 
'#       Description: Launch Multiple Robocopy session & log only 
'#       differences  
'####################################################################### 
 
Option Explicit 
  
Dim objShell, objFSO 
Dim strOptions, strLog, strSource, strDestination, strFolder 
Dim txtFile, strFileName, strPath 
Dim objBaseFolder, objFolder 
Dim Strlogfind, strsource1, strDestination1, strFolder1 
Set objShell = CreateObject("WScript.Shell")       
Set objFSO = CreateObject("Scripting.FileSystemObject")  
      
Set txtFile =       objFSO.OpenTextFile("C:\scripts\robocopy\readfile.txt"1)   ' read from text file –change accordingly 
  
do until txtFile.AtEndOfStream 
 
strFolder      = txtFile.ReadLine   'read folder names 
 
strFolder1 = chr(34) & strFolder & chr(34)  'add quotes to avoid space errors 
  
  
  strSource      = "\\source-fs\c$\Scripts" & "\" & strFolder      'Source (Change accordingly) 
 
  strsource1 =  chr(34) & strSource & chr(34)  'add quotes 
  
  strDestination = "\\destination-fs\c$\backup" & "\" & strFolder      'Destination (Change accordingly) 
 
  strDestination1 = chr(34) & strDestination & chr(34'add quotes 
  
  objShell.run "cmd /k C:\scripts\robocopy\rcpy.bat "" " & strSource1 & " " & strDestination1 & " " & strFolder1 &""  'batch file command 
 
  WScript.Sleep 60000  ' launch session every 60 secs 
 
loop 
 
txtFile.Close 
 
'###########################################################################
 Pls rate the script if it worked for you.

more info at http://techwizard.cloud

 

Thanks for reading and downloading

Tech Wizard

http://techwizard.cloud