クリップボードの中身をファイルに出力 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• クリップボードの中身をファイルに出力 へ行く。
• クリップボードの中身をファイルに出力 の差分を削除

目次
#Contents
**概要 [#la874bf4]
クリップボードの中身をファイルに出力するスクリプト

**コード [#g3443599]
 Set IE = WScript.CreateObject("InternetExplorer.Application") 
 IE.Navigate "about:blank"
 
 Set c =IE.Document.ParentWindow.ClipboardData
d = c.getData("text") 
 d = c.getData("text") 
 
 If IsNull(d) Then d ="" 
 
 Set FSO = CreateObject("Scripting.FileSystemObject") 
 
 '保存先
 p = "C:\clip.txt"
 f = Replace(Date, "/", "") & ".txt"
 
 Set t = FSO.OpenTextFile(p & f,8,True)
 t.WriteBlankLines(1)
 t.WriteLine Time
 t.WriteLine d
 t.Close