VBScriptを書く練習(環境変数を展開するやつ)

最近VBScriptを書く練習をしています。

練習の一環で、Windows環境変数を含むファイル(フォルダー)パスを展開するスクリプトを書きました。

他にプログラムとかスクリプト経験ないですし(HTMLとCSSかじったことある程度のスーパー初心者)、

書き始めて2日なんでコード汚いと思います。

アドバイスあればください。

使い方:

  1. 「設定: 対象ファイル」のパスを好きなのに設定して拡張子vbsで保存

  2. 実行すると環境変数を展開したパスをダイアログ表示

Option Explicit

'変数を定義
Dim objWshShell, strTargetFolder, i, j, k
i = 0
j = 0
k = 0

'オブジェクト変数を定義
Set objWshShell = WScript.CreateObject("WScript.Shell")

'設定: 対象ファイル
strTargetFolder = "%userprofile%\desktop\hogehoge.txt"

'パスに環境変数が入っていたら展開する
Call EnvPathReplace(strTargetFolder)
Msgbox strTargetFolder

'Functionプロシージャ: パスに環境変数が入っていたら展開する
Function EnvPathReplace(strPath)
    Dim strEnvPath, strEnvPathFwd, strEnvPathRear
    Do While InStr(strPath,"%")>0
        i = InStr(strPath,"%")
        j = InStr(i+1,strPath,"%")
        strEnvPath = objWshShell.ExpandEnvironmentStrings(Mid(strPath,i,j-i+1))
        strEnvPathFwd = Left(strPath,i-1)
        strEnvPathRear = Mid(strPath,j+1)
        strPath = strEnvPathFwd+strEnvPath+strEnvPathRear
    Loop
    strEnvPath = 0
    strEnvPathFwd = 0
    strEnvPathRear = 0
    i = 0
    j = 0
    k = 0
    EnvPathReplace = strPath
End Function