- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
933 ：デフォルトの名無しさん[]：2015/09/05(土) 13:16:01.25 ID:x7KkU3nJ - ショートカットファイルがたくさんありますが
今回、そのドライブレターを変えたのと、半分くらいはフォルダを作ってそれに入れたのでリンクが少しだけ規則的にかわりました。
FileSystemObjectというのを知っていままで使ったことがありますが
このFileSystemObjectを使ってショートカットファイルのリンク先を変更するには
どうすればいいでしょうか？
|
- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
940 ：デフォルトの名無しさん[]：2015/09/05(土) 15:01:26.21 ID:x7KkU3nJ - >>935
フォームに「マルチページ」のコントロールを貼り付けて
ページごとに似通った機能をまとめたまえ。
|
- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
941 ：デフォルトの名無しさん[]：2015/09/05(土) 15:17:17.15 ID:x7KkU3nJ - >>938
謝謝！
|
- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
942 ：デフォルトの名無しさん[]：2015/09/05(土) 15:47:59.73 ID:x7KkU3nJ - LnkFile.TargetPathは、読み取りはできても書き込みはできないようなのですが。
|
- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
943 ：デフォルトの名無しさん[]：2015/09/05(土) 15:49:08.28 ID:x7KkU3nJ - ところで
Sub Sample2()
Dim WSH, LnkFile, DeskTopPath As String, LnkFileName As String
Set WSH = CreateObject("WScript.Shell")
DeskTopPath = WSH.SpecialFolders("Desktop")
LnkFileName = DeskTopPath & "\メモ帳.lnk"
Set LnkFile = WSH.CreateShortcut(LnkFileName)
MsgBox LnkFile.TargetPath
Set LnkFile = Nothing
Set WSH = Nothing
End Sub
のようなコードがあったとして、LnkFileのクラス(?)のメンバをオブジェクトブラウザで見れるようにする方法はありますか？
|
- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
944 ：デフォルトの名無しさん[]：2015/09/05(土) 16:35:27.01 ID:x7KkU3nJ - >>942
LnkFile.Save
とすればできるよ
|
- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
945 ：デフォルトの名無しさん[]：2015/09/05(土) 16:37:12.71 ID:x7KkU3nJ - >>944
おお、すばらしい！！！
|
- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
946 ：デフォルトの名無しさん[]：2015/09/05(土) 16:52:31.34 ID:x7KkU3nJ - >>943
Window Script Host Object Modelを参照設定したまえ
|