[Iska]

Не может он ничего копировать с приведённым выше кодом.

Код:

Option Explicit

Dim strSourceFolder
Dim strDestFolder

With WScript.CreateObject("Scripting.FileSystemObject")
	strSourceFolder = .BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:Local AppData").self.Path, "Google\Chrome\User Data\Default")
	strDestFolder   = "C:\Backup"
	
	If .FolderExists(strSourceFolder) Then
		If Not .FolderExists(strDestFolder) Then
			.CreateFolder strDestFolder
		End If
		
		.CopyFolder strSourceFolder, strDestFolder, True
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
	End If
End With

WScript.Quit 0

но не все файлы из папки User Data »

Закройте браузер.