壁紙のフルパスを取得するVBスクリプト †

この壁紙ファイル、どこのフォルダ置いてあるの？
このように壁紙のファイルパスを調べたい時に使えるVBスクリプトを作成しましたので公開します。

壁紙のファイルパスは、以下のレジストリに設定されています。
したがって、VBスクリプトは、レジストリ値を取得し表示するスクリプトとなっています。

\HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper
↑

動作確認 †

↑

取得するレジストリ値のありか †

最初にも書きましたが、以下の場所のレジストリ値を取得します。

\HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper
01.png
↑

壁紙のファイルパスを取得するVBスクリプト †

以下のVBスクリプトは、指定したレジストリパスのレジストリ値を取得し表示します。

filewallpaperPath.vbs
Dim os
Dim wallpaperPath

Set os = WScript.CreateObject("WScript.Shell")
wallpaperPath = os.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper")
WScript.Echo wallpaperPath
↑

実行結果 †

上記のVBスクリプトを実行した時のキャプチャです。

02.png

以上、VBスクリプトを使って壁紙のフルパスを取得する方法でした。

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS