WSH. Копирование на usb (добавить обработку подпапок)

Может, это сгодится? JScript: копирование файлов с заданными расширениями.

Точно не решает? По-моему, там можно указать относительный путь для папки назначения.

Rumata C этой целью и разместил пост. Так как сам я подобными навыками не обладаю(
Чтобы люди которые в этом разбираются где-то чего-то подправили в уже существующем (или если удобнее другом - не принципиально) скрипте чтобы
1) Копировать только файлы с разширением *.bak, *.old, *.ini с Рабочего стола и Моих документов (путь указать как спец папку, запускаться будет на более 30 машинах с разными пользователями)
2) Указать папку для копирование файлов относительно скрипта на флешке (так как при подключении на разных пк назначаемая буква диска разная и вариант с F:\Statistika\Недельная\ не срабатывает так как диска F: нету)

так может кто поможет отредактировать скрипт :

var BackupFName = "F:\\Statistika\\Недельная\\"; 
var WshShell=WScript.CreateObject("WScript.Shell"); 
var WshSpecialFolders=WshShell.SpecialFolders; 
var UserName=WshNet.UserName; 
   { 
      var SpecFldr, i; 
      SpecFldr= new Array(2); 
      SpecFldr[0]="Desktop"; 
      SpecFldr[1]="MyDocuments"; 

      for (i=0;i<SpecFldr.length;i++) 
      { 
         var UsersMyDocsFName="\"" + WshSpecialFolders(SpecFldr[i])+ "\""; 
         var UserBackupFName="\""+BackupFName+UserName+"\\"+SpecFldr[i]+"\"" 
         WshShell.Run("%COMSPEC% /c if not exist "+UserBackupFName+" md "+UserBackupFName, 0, true); 
         WshShell.Run("xcopy /c /d /e /i /y "+UsersMyDocsFName+" "+UserBackupFName,0, true); 
      } 
   }

чтобы :
1. Копировать только файлы с разширением *.bak, *.old, *.ini
2. Указать относительный путь для копирование файлов на флешке, так как при подключении на разных пк назначаемая буква диска разная и вариант с F:\Statistika\Недельная\ не срабатывает так как диска F: нету
Заранее спасибо за помощь

Xameleon
Спасибо за помощь.
Предложенный вами скрипт не обрабатывает подпапки и не копирует файлы из Мои Документы.
Система Windows 7 x64, возможно проблема в том что папка Мои Документы - переназначена и находится не на системном диске. Через WshSpecialFolders=WshShell.SpecialFolders "MyDocuments" ведет к "C:\Users\Администратор\Documents", а вот если зайти через Пуск-Документы, то попадаю куда нужно - "Библиотеки\Документы", может и к библиотеке можно обратиться как к спецпапке?
Удалось нагуглить что библиотека FOLDERID_DocumentsLibrary имеет путь "%APPDATA%\Microsoft\Windows\Libraries\Documents.library-ms". Попытался подставить в Ваш скипт строчку ssfPERSONAL = %APPDATA%\Microsoft\Windows\Libraries\Documents.library-ms, но не вышло(( Покурил еще немного и я так понял пути вида %APPDATA% нужно указывать с помощью ExpandEnvironmentStrings(), но я для этого тупой, не вышло((

madjahed
1) Изначально Вы не указывали, что требуется перебор по подкаталогам. Возникает встречный вопрос - Что делать с файлами, которые имеют одно и тоже имя, но лежат в разных подкаталогах ? Пример:

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

2) Вы уверены, что у Вас эти пути ведут к разным каталогам ? ssfPERSONAL позвоялет получить путь именно к документам текущего пользователя (и возвращаемое значение учитывает переназначения, на сколько мне известно) - справка по константам Shell.Application

Если же у Вас существует разница, то надо разобраться чьи же документы Вы тогда перебираете ?

madjahed,

1) В таком случае, Вы можете обойтись одной коммандой с использованием robocopy.

robocopy "%USERPROFILE%\Desktop" "Stat\Weekly" "*.bak" "*.txt" "*.ini" /S

2) Каталог библиотек меня несколько озадачил. Ранее не имел опыта работы с ним, но то что Вы называете "другим каталогом", в действительности является лишь ссылкой. Другой вопрос ссылкой на что ?

Я попытался натравить robocopy на %APPDATA%\Microsoft\Windows\Libraries\Documents.library-ms но модуль сообщил, что такой каталог не найден.
Хорошо, я подсунул этот путь explorer-у и убедился, что он прекрасно открывается. Кстати,

У меня эти пути показывают идентичное содержимое. Т.е ведут на один и тот же каталог.

Далее я попробовал через dir зайти в каталог %APPDATA%\Microsoft\Windows\Libraries

И что мы видим - Documents.library-ms никакой не каталог, а файл

Решил посмотреть свойства:

Открыл содержимое:

Т.е проводник, зная как работать с этим файлом, показывает нам ссылку на совершенно иное содержимое. Остаётся выяснить, куда у Вас смотрит эта ссылка.

madjahed, Вы зря ломаете копья с javascript, если есть готовый удобный иснтрумент - robocopy. Нужно лишь выяснить, что за странности с путями библиотек.

Логично, потому что нужно работать с конечным каталогом, а не с ссылкой на него.

madjahed, не проще. В этом случае нужно написать функцию, которая будет рекурсивно вызываться, воссоздавать подкаталоги и копировать туда необходимые файлы. Зачем же это делать, если уже есть готовый инструмент в виде утилиты коммандной строки.

Выясните всё же - куда у Вас ведут пути.

P.S Как говорится: Лучше день потерять потом за пять минут долететь

@echo off

setlocal enableextensions enabledelayedexpansion

robocopy "%USERPROFILE%\Desktop" "Stat\Weekly" "*.bak" "*.txt" "*.ini" /S

FOR /F "tokens=3" %%G IN ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Personal"') DO (SET Personal=%%G)

robocopy "%personal%" "Stat\Weekly" "*.bak" "*.txt" "*.ini" /S
pause

Ииии... Проверяем.

madjahed,
1) Так как раз здесь и происходит чтение пути, на который указывает %APPDATA%\Microsoft\Windows\Libraries\Documents.library-ms:

'REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Personal"'

Вместо того, чтобы голову ломать, достаточно перейти по пути %APPDATA%\Microsoft\Windows\Libraries\, открыть свойства объекта "Документы", перейти на вкладку "Библиотека" и посмотреть куда ведёт путь.

2) Вот. Правильно мыслите. Нужно разделение на подкаталоги.

madjahed,

Shell.Application использует ссылку(и) из этого файла, для получения списка содержимого документов. Других ссылок не существует.

В предыдущем своём сообщении я уже упомянул, ещё одну из рекомендаций. Не увидел Вашего ответа по этому поводу.

Вместо того, чтобы повторять:

Можно было уже:
1) Провести поиск по интернету и изучить механизм работы библиотек. (пример)
2) Заглянуть в ветку реестра HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
.
3) Выбрать машину на которой происходит неправильное срабатывание и вычислить реальный путь файлов, открыв свойства и посмотрев "Расположение", или проведя поиск этих файлов по диску. И сравнить чем отличается "реальный" путь от "ошибочного".

Пока не вижу этих действий с Вашей стороны. Потому делаю паузу и жду Вашей инициативы. Так как не имею информации о том как воспроизвести подобную ситуацию у себя.

madjahed, прекрасно ! Теперь хотя бы визуально представляем ситуацию.

Давайте теперь откроем %APPDATA%\Microsoft\Windows\Libraries\Documents.library-ms и посмотрим свойства любого из файлов, отображаемых проводником в этом разделе.

Ну вот видите. Файлы, которые Вам нужны, находятся на диске D:\, а никак не на диске C:\.

Возвращаемся к моему раннему вопросу:

Предполагаю, что у Вас там существует несколько значений.
Если присмотреться, то на Вашем скриншоте даже написано - "Включает 2 папки"

madjahed,
1) Не надо паники.

Ещё раз. Мы выяснили, что это не ссылка, а файл с XML содержимым. В котором хранятся таки пути с каталогами, которые Вам нужны. Узнать их можно из этого файла, либо открыв свойства папки "Документы", как я уже говорил выше.

2)

Не надо обманывать. Вы спешите и невнимательно читаете, что я написал. Вот, пожалуйста скриншот с Win 7:

На Ваших скриншотах эта информация отсутствует.

3) Я уже пояснил, почему не вижу рационального смысла в использовании JS в данном случае. Но очень возможно, что придётся задействовать часть его функций для получения путей, так как читать XML файл в BAT/CMD не очень удобно.

madjahed,

Именно. И я просил посмотреть свойства папки в одном сообщении:

и свойства файла(ов) в другом сообщении:

Поэтому и уточнил, что Вы, видимо, спутали одно сообщение с другим. Но не суть важно. Теперь мы точно знаем, что в файле библиотеки содержится вся информация. Постараюсь придумать, как их получить.

Может кто поможет. Нужно добавить обработку вложенных папок при копировании из папок "ssfDESKTOP", "ssfPERSONAL", "%APPDATA%\\Microsoft\\Windows\\Libraries\\Documents.library-ms\\", которые указаны в переменной specialFolders

WshShell = WScript.CreateObject("WScript.Shell");
with(WshShell){
var list1= ExpandEnvironmentStrings("%APPDATA%") + '\\Microsoft\\Windows\\Libraries\\Documents.library-ms\\';
}
	var ssfDESKTOP = 0x00, ssfPERSONAL = 0x05, SHCONTF_NONFOLDERS = 0x00040, SHCONTF_INCLUDEHIDDEN = 0x00080,
	shell = new ActiveXObject('Shell.Application'),
	specialFolders = [ssfDESKTOP, ssfPERSONAL, list1],
	currentFolder = shell.NameSpace(WScript.ScriptFullName.replace(/[^\/\\]+$/, '')),
	backupFolder = 'Statistika\\Недельная\\',
	items;
currentFolder.NewFolder(backupFolder);
currentFolder = shell.NameSpace(currentFolder.parseName(backupFolder));
for(var i in specialFolders){
	items = shell.NameSpace(specialFolders[i]).Items();
	items.filter(SHCONTF_NONFOLDERS || SHCONTF_INCLUDEHIDDEN,'*.bak, *.old, *.ini');
	currentFolder.CopyHere(items,24);
}