このエントリーをはてなブックマークに追加


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

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

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

\HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper

動作確認

  • Windows 10 21H2
  • Windows 11 21H2

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

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

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

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

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

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スクリプトを使って壁紙のフルパスを取得する方法でした。


添付ファイル: filewallpaperPath.vbs 43件 [詳細] file01.png 35件 [詳細] file02.png 34件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2022-07-19 (火) 11:09:52