$Folder = 'C:\Documents and Settings\Admin\Рабочий стол\test'
$Destination = 'C:\'
$Split = StringSplit($Folder, '\')
DirCreate($Destination & '\' & $Split[$Split[0]])
Run(@ComSpec & ' /c xcopy /Y /K /H /E ' & FileGetShortName($Folder) & ' ' & FileGetShortName($Destination & '\' & $Split[$Split[0]]), '', @SW_HIDE)