VBS/WSH/JS

Iska · Отправлено: **00:39, 19-10-2013** | #2

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

Код:

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

Цитата igorromin@vk:

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

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

igorromin@vk · Отправлено: **06:01, 19-10-2013** | #3

Спасибо огромное

igorromin@vk · Отправлено: **10:25, 20-10-2013** | #4

А можно что бы он не копировал подпапки, а то как выяснилось они на фиг не нужны?

Iska · Отправлено: **13:01, 20-10-2013** | #5

Цитата igorromin@vk:

А можно что бы он не копировал подпапки »

Нельзя. Надо менять метод копирования с «.CopyFolder()» на «.CopyFile()»:

Код:

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
		
		.CopyFile .BuildPath(strSourceFolder, "*.*"), strDestFolder, True
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
	End If
End With

WScript.Quit 0