- 追加された行はこの色です。
- 削除された行はこの色です。
#author("2022-07-19T11:06:14+09:00","","")
#author("2022-07-19T11:09:52+09:00","","")
#navi(../)
* 壁紙のフルパスを取得するVBスクリプト [#ebe13be9]
この壁紙ファイル、どこのフォルダ置いてあるの?~
このように壁紙のファイルパスを調べたい時に使えるVBスクリプトを作成しましたので公開します。
壁紙のファイルパスは、以下のレジストリに設定されています。~
したがって、VBスクリプトは、レジストリ値を取得し表示するスクリプトとなっています。
\HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper
#contents
* 動作確認 [#t69d796d]
- Windows 10 21H2
- Windows 11
- Windows 11 21H2
* 取得するレジストリ値のありか [#oa6d2e61]
最初にも書きましたが、以下の場所のレジストリ値を取得します。
\HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper
#ref(01.png)
* 壁紙のファイルパスを取得するVBスクリプト [#g4ef37d6]
以下のVBスクリプトは、指定したレジストリパスのレジストリ値を取得し表示します。
#ref(wallpaperPath.vbs)
Dim os
Dim wallpaperPath
Set os = WScript.CreateObject("WScript.Shell")
wallpaperPath = os.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper")
WScript.Echo wallpaperPath
* 実行結果 [#a29a2ab9]
上記のVBスクリプトを実行した時のキャプチャです。
#ref(02.png)
以上、VBスクリプトを使って壁紙のフルパスを取得する方法でした。