VBSでインターネットショートカットからURLを取得する方法

Question

VBScriptでインターネットショートカット(.url)からインターネットURLを取得したいです。

サンプルソースを頂けると助かります。

よろしくお願いいたします。

Answer 1

ほい。
エラー処理は省いています。

Option Explicit

Dim objFSO
Dim objr
Dim str
Dim cols
Dim url

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objr = objFSO.OpenTextFile("VBScript - VBSでインターネットショートカットからURLを取得する方法(78447)｜teratail.url")

' 1行目読み飛ばし
str = objr.ReadLine
' 2行目読み込み
str = objr.ReadLine
' =で分割
cols = Split(str, "=")
' 2つめがURL
url = cols(1)

objr.Close
Set objr = Nothing
Set objFSO = Nothing

WScript.Echo "url=" & url

Comments

[teraAc]

ありがとうございます。