| igorromin@vk |
18-10-2013 19:48 2236772 |
Копирует не все файлы из папки
Здравствуйте, суть кода в резервном копировании данных браузера. Копирует, но не все файлы из папки User Data
PHP код:
Set FileSystemObject = CreateObject("scripting.filesystemobject")
set WshShell1 = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\Users\" & WshShell1.ExpandEnvironmentStrings("%USERNAME%") & "AppDataLocalGoogleChromeUser DataDefault" , "C:Backup"
Заранее спасибо |
Не может он ничего копировать с приведённым выше кодом.
Код:
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 |
19-10-2013 06:01 2237034 |
Спасибо огромное
|
| igorromin@vk |
20-10-2013 10:25 2237684 |
А можно что бы он не копировал подпапки, а то как выяснилось они на фиг не нужны?
|
Цитата:
Цитата 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
|
Время: 08:03.
© OSzone.net 2001-
