| ■19388 / ) |
Re[9]: ショートカットファイルのアイコン設定 |
□投稿者/ こみ (6回)-(2008/05/22(Thu) 17:30:02)
|
途中報告です。
Dim WSH As Object
Dim WshSCut As Object
Dim X1 As String = "C:\Users\yusuke\Desktop\CCleaner (2).lnk"
Dim XX
XX = X1
WSH = CreateObject("WScript.Shell")
WshSCut = WSH.CreateShortcut(XX)
X1 = WshSCut.IconLocation
MsgBox(X1)
X1 = WshSCut.TargetPath
MsgBox(X1)
WSH = Nothing : WshSCut = Nothing
このようにショートカットの情報を取るものを実行してみました
結果「TargetPath」は正常に取得できますが「*.sln」に限って「IconLocation」のみ結果が「,0」としか取得できませんでした
メモ帳などのショートカットの場合は「TargetPath」「IconLocation」とも正常に取得できます。
|
|