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

目次

概要 †

クリップボードの中身をファイルに出力するスクリプト

コード †

Set IE = WScript.CreateObject("InternetExplorer.Application") 
IE.Navigate "about:blank"

Set c =IE.Document.ParentWindow.ClipboardData
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