[Aquila]

insurgent14@vk, Актуализировал для Win10.

1) Создайте в папке C:\Windows текстовый файл указанного ниже содержания и сохраните его с именем WPTargetDir.vbs.

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
strMsg = "Выполнено!"
strCurWP =""

On Error Resume Next
strCurWP = WshShell.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper")
On Error Goto 0

If Trim(strCurWP) = "" Then
	MsgBox "Фоновое изображение не используется."
Else
	If fso.FileExists(strCurWP) Then
		WshShell.run "explorer.exe" & " /select," & strCurWP
	Else
		MsgBox "Указанный файл отсутствует: " & strCurWP
	End If
End If

2) Для добавления пункта Имя и расположение текущего файла фона в контекстное меню рабочего стола, создайте и примените reg-файл следующего содержания:

Код:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\DesktopBackground\Shell\WPTargetDir]
"icon"="imageres.dll,108"
@="Имя и расположение текущего файла фона"

[HKEY_CLASSES_ROOT\DesktopBackground\Shell\WPTargetDir\command]
@=hex(2):77,00,73,00,63,00,72,00,69,00,70,00,74,00,2e,00,65,00,78,00,65,00,20,\
  00,22,00,25,00,57,00,69,00,6e,00,44,00,69,00,72,00,25,00,5c,00,57,00,50,00,\
  54,00,61,00,72,00,67,00,65,00,74,00,44,00,69,00,72,00,2e,00,76,00,62,00,73,\
  00,22,00,00,00

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

2) Для удаления пункта Имя и расположение текущего файла фона из контекстного меню рабочего стола, создайте и примените reg-файл следующего содержания:

Код:

Windows Registry Editor Version 5.00

[-HKEY_CLASSES_ROOT\DesktopBackground\Shell\WPTargetDir]

[insurgent14@vk]

Почему-то у меня открывается папка с темами, а точнее C:\Users\ANTON\AppData\Roaming\Microsoft\Windows\Themes где и хранится кэш текущего изображения : /

[Ladislaus]

Файл vbs вот такого содержания вроде бы работает, но, опять же, путь к паке должен быть только с английскими символами:

Код:

Const HKCU = &H80000001 'HKEY_CURRENT_USER

sComputer = "."   

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
            & sComputer & "\root\default:StdRegProv")

sKeyPath = "Control Panel\Desktop\"
sValueName = "TranscodedImageCache"
oReg.GetBinaryValue HKCU, sKeyPath, sValueName, sValue


sContents = ""

For i = 24 To UBound(sValue)
  vByte = sValue(i)
  If vByte <> 0 And vByte <> "" Then
    sContents = sContents & Chr(vByte)
  End If
Next

CreateObject("Wscript.Shell").Run "explorer.exe /select,""" & sContents & """"

[Ladislaus]

Вот здесь есть решение, которое работает и с кирилическими символами в пути к папке. Скачайте Add_Desktop-Background-File-Location_context_menu.zip, распакуйте архив, поместите Find_Desktop_Background.ps1 и Find_Desktop_Background.vbs файлы в папку C:\Windows\System32 и запустите Add_Desktop-Background-File-Location_context_menu.reg файл для добавления пункта в контекстное меню рабочего стола.

[Iska]

но, опять же, путь к паке должен быть только с английскими символами: »

Покажите файл реестра с параметром «TranscodedImageCache», где будет путь с кириллицей, и приведите сам этот путь. Посмотрим.

[Ladislaus]

Покажите файл реестра с параметром «TranscodedImageCache», где будет путь с кириллицей, и приведите сам этот путь. Посмотрим. »

Если не ошибаюсь это параметр TranscodedImageCache в разделе HKEY_CURRENT_USER\Control Panel\Desktop.
Путь выглядит так: "C:\Users\Владислав\OneDrive\Изображения\Фоновые изображения\Nature\фото (28).jpg"

[Aquila]

insurgent14@vk, Всё открывается, как с именем img0.jpg, так и с абвгд.jpg. Также работает на Win8.1.

[Ladislaus]

insurgent14@vk, Всё открывается, как с именем img0.jpg, так и с абвгд.jpg. Также работает на Win8.1. »

Предположил, что я не внимательно выполнил, то, что вы описали здесь, после чего заново создавал в папке C:\Windows файл WPTargetDir.vbs несколько раз. По какой-то причине вместо папки с текущим изображением открывается папка %AppData%\Microsoft\Windows\Themes с выделенным файлом TranscodedWallpaper, на это кажется указывает и автор темы. Но, если в качестве фона рабочего стола выбрать не слайд-шоу, а одно изображение, то как и положено открывается папка с этим выделенным файлом. Естественно, в этом случае, при отсутствии слайд-шоу, смысл в пункте в контекстном меню для нахождения текущего фонового изображения несколько теряется.

[Aquila]

Ladislaus, Подумал, что раз с одним открывает, то и несколько не проблема, был неправ. А вот Ваш скрипт правильно работает.