2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« サポート記事を保存するとき、文書番号をファイル名に付ける。 | トップページ | エクスプローラのコマンドバーに「上へ」ボタンを作る。 »

2012年8月29日 (水)

保存したサポート記事のファイル名に文書番号をに付ける。

htmlファイルをドロップします。

KB.vbs ファイル

Set ie=CreateObject("InternetExplorer.Application")
ie.Visible=True
ie.Navigate WScript.Arguments.Item(0)
Do While ie.Busy Or ie.ReadyState<>4
  WScript.Sleep 100
Loop
For Each elem In ie.Document.getElementsByTagName("META")
  NameStr = elem.getAttribute("name")
  If Len(NameStr) Then
    If LCase(NameStr) = "ms.sup_cid"  Then
      KB="KB" & elem.getAttribute("content") & " "
      Exit For
    End If
  End If
Next
ie.Quit
If Not IsEmpty(KB) Then
  Set fso=CreateObject("Scripting.FileSystemObject")
  fso.GetFile(WScript.Arguments.Item(0)).Name=KB & fso.GetFileName(WScript.Arguments.Item(0))
End If

« サポート記事を保存するとき、文書番号をファイル名に付ける。 | トップページ | エクスプローラのコマンドバーに「上へ」ボタンを作る。 »