クリップボードの中身をファイルに出力 のバックアップ(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• クリップボードの中身をファイルに出力 へ行く。
  • 1 (2009-07-06 (月) 16:11:24)

目次

概要 †

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

コード †

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