#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スクリプトを使って壁紙のフルパスを取得する方法でした。
トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS