Ｐａｇｅ 115 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ショートカットの作成 KOA 05/10/19(水) 14:41 ┣Re:ショートカットの作成 KOA 05/10/21(金) 10:58 ┗【要望】Re:ショートカットの作成 piroshi 05/12/7(水) 22:21 ┗Re:【要望】Re:ショートカットの作成 KOA 05/12/8(木) 3:15 ┗Re:【要望】Re:ショートカットの作成 KOA 05/12/8(木) 9:49 ┗Re:【要望】Re:ショートカットの作成 KOA 05/12/8(木) 9:51 ─────────────────────────────────────── ■題名 ： ショートカットの作成 ■名前 ： KOA ■日付 ： 05/10/19(水) 14:41 -------------------------------------------------------------------------
| 右クリックメニューの"ショートカットの作成"と同等のものです。 デスクトップへのパスは自動で取得しないのでスクリプトを書き換えてください。 VBscriptです。 |
| 添付し忘れていたので再upload |
| ▼KOAさん： >右クリックメニューの"ショートカットの作成"と同等のものです。 >デスクトップへのパスは自動で取得しないのでスクリプトを書き換えてください。 >VBscriptです。 要望です。 タイトルがない場合は、ファイル名がない状態で保存されます。 この場合は、URLをファイル名にしてほしいです。 使用不可な文字は除いて。 |
| ▼piroshiさん： >▼KOAさん： >>右クリックメニューの"ショートカットの作成"と同等のものです。 >>デスクトップへのパスは自動で取得しないのでスクリプトを書き換えてください。 >>VBscriptです。 > >要望です。 >タイトルがない場合は、ファイル名がない状態で保存されます。 >この場合は、URLをファイル名にしてほしいです。 >使用不可な文字は除いて。 元スクリプトの19行目 Title = DocObj.Document.title を Title = DocObj.Document.title : Dim NullTitle : Set NullTitle = New RegExp : NullTitle.Global = True : NullTitle.Pattern = "^\s*$" : If NullTitle.Test(Title) then Title = DocObj.Document.url に書き換えてください。title要素が空もしくは空白のみの場合、URLをショートカットファイル名にします。 |
| すみません、こまごまとした不具合が見つかったので書き直しました。 変更点： ・ショートカットの作成をWshUrlShortcutオブジェクト経由で行う(Modified) ・デスクトップへのパスをWshSpecialFoldersオブジェクト経由で取得(スクリプトを書き換える必要がありません) ・同名のショートカットが存在する場合は[2]のような添え字をつける ・title要素がファイル名に不適当な場合、URLを元にファイル名を作成する ・ファイル名が半角ピリオド/空白の連続で始まりそうなら全角ピリオドに置換(ファイルのプロパティが開けなかったりした不具合を解消) あと少し改良するなら、favicon関連でしょうか。では。 |
| プレビューすると添付がなくなるようですね。 |