- 追加された行はこの色です。
- 削除された行はこの色です。
目次
#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