目次

概要

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

コード

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

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2009-07-06 (月) 16:11:34 (5351d)