[gora]

Как-то так:

Код:

For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKCU\Software\Binary Fortress Software\DisplayFusion\Wallpaper"^|Find /I "Wallpaper_0_FileName"`) Do Echo %%J>text.txt

[Dark Ange1]

Спасибо, супер, работает! Осталось только добавить, что в начале батника/cmd надо ставить

Код:

CHCP 1251

чтобы правильно копировалась кириллица.

И как нужно модифицировать код, чтобы значение не заменялось а добавлялось в конец файла?

[gora]

добавлялось в конец файла? »

Добавить еще один ">"

Код:

For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKCU\Software\Binary Fortress Software\DisplayFusion\Wallpaper"^|Find /I "Wallpaper_0_FileName"`) Do Echo %%J>>text.txt

[Dark Ange1]

И еще: если

Код:

For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKCU\Software\Binary Fortress Software\DisplayFusion\Wallpaper"^|Find /I "Wallpaper_0_FileName"`) Do Echo %%J|clip

, то как потом в этой же консоли вставить значение буфера обмена. Например, для использования с командой move

Добавить еще один ">" »

блин, не поверишь - только что сам вспомнил и хотел сюда написать

Отлично. Теперь я могу получить текстовый файл со списком путей к файлу, включая имя файла в столбик типа этого:

Код:

D:\Wallpapers\Dir1\file1.jpg
D:\Wallpapers\Dir2\file2.jpg
D:\Wallpapers\Dir1\file55.jpg
...
D:\Wallpapers\Dir678\file2098.jpg
...

А вот как теперь копировать/переместить/удалить файлы по путям из того списка?

[gora]

Код:

For /F "tokens=* delims=" %%i In (names.txt) Do Echo %%i

names.txt - файл со списком путей
Echo - замените на: копировать/переместить/удалить

[Dark Ange1]

А если пути файлов в names.txt содержат пробелы?

[Dark Ange1]

Спасибо. Заработало. Но для xcopy заработало только после того, как поменял

Код:

Do xcopy %%i  C:\Walls\ /y

на

Код:

Do xcopy "%%i" C:\Walls\ /y

, т.е. %%i взял в кавычки.

Я немного некорректно сообщил условия

Отлично. Теперь я могу получить текстовый файл со списком путей к файлу, включая имя файла в столбик типа этого: Код: D:\Wallpapers\Dir1\file1.jpg D:\Wallpapers\Dir2\file2.jpg D:\Wallpapers\Dir1\file55.jpg ... D:\Wallpapers\Dir678\file2098.jpg ...

На самом деле в списке присутствовала кириллица в кодировке CHCP 1251 и пробелы:

Код:

D:\Обои на удаление\Папка 1\файл1.jpg
D:\Обои на удаление\Папка 2\файл2.jpg
D:\Обои на удаление\Папка 1\файл_42.jpg
...
D:\Обои на удаление\-=Папка 546=-\файл_222.jpg
...

[sov44]

Пытаюсь разобраться с присвоением переменных. Подскажите, почему не работает скрипт?

Код:

For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"^|Find /I "BuildLab"`) Do set /a Build=%%a
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"^|Find /I "CSDVersion"`) Do set /a Version=%%b
For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"^|Find /I "ProductName"`) Do set /a Product=%%c
CHCP 1251 >Nul
echo %Product%>>txt.txt
echo %Version%>>txt.txt
echo %Build%>>txt.txt

[gora]

Код: For /F "UseBackQ Tokens=2*" %%I In (`Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"^|Find /I "BuildLab"`) Do set /a Build=%%a »

Удалите во всех строках выделенное цветом.