Windowsの壁紙格納場所両方にショートカットを作成する

Windowsの壁紙格納場所両方にショートカットを作成します。

環境はWindows10です。Windows11は違うかもしれません。

１．壁紙格納場所フォルダーは以下です。

C:\Windows\Web\Wallpaper

２．さらに上の階層にも壁紙に使える画像フォルダーがあります。

C:\Windows\Web

３．それとは別にWindowsのテーマの壁紙は以下のフォルダーにあります。

C:\Users\kappa\AppData\Roaming\Microsoft\Windows\Themes

分散していてわかりにくいですね。というわけで相互にショートカットを作成します。フォルダーを右クリックでドラッグして目的のフォルダーでドロップして「ショートカットをここに作成」を選ぶだけです。

ただ、2のショートカットを3に作るのはマウス操作だけでできますが、その逆の3を2にショートカットを作るのはできませんでした。多分、システムディレクリとかそういう制限なのだと思います。

でも管理者権限なら可能なはずです。Windowsなので。調べてみました。

マウス操作に管理者権限を付与する方法 → 謎
ショートカットを作成するコマンドライン → 無い

というわけで無いなら作りましょう。ググったらPROJECT GROUPさんというサイトで、メモ帳のショートカットをデスクトップに作成するvbsが公開されていました。

ショートカットファイルを作成する方法 - Windows - Project Group

ありがたく流用させていただきこういうスクリプトになりました。

Set shell = WScript.CreateObject("WScript.Shell")

fil = "C:\Windows\Web\Themes.lnk"

Set shortCut = shell.CreateShortcut(fil)
shortCut.TargetPath = "C:\Users\kappa\AppData\Roaming\Microsoft\Windows\Themes"
shortCut.Save

これをメモ帳に貼り付けてbg.vbsという名前のファイルでデスクトップに保存します。

次に、Windowsのタスクバーの検索でcmd.exeまたはpowershellと入力してシェルを探します。見つかったそれを右クリックし、「管理者として実行」をクリックします。

そして

cd Desktop

と入力してEnterしてデスクトップに移動します。

最後に

bg.vbs

で実行します。

これで2に3のショートカットができました。