The below script that maciep gave me works a treat. Is there any way to add a progress bar to it?

Code:
 Function CopyUser()

   dim $serverPath,$localPath
   $serverPath = 'C:\data\Share\' + $User.text 
   $localPath = 'c:\data\User\'
   If exist($serverPath)
      Copy $serverPath + '\*.*' $localPath /c /h /r /s
   EndIf

EndFunction