クリップボードの中身をファイルに出力 のバックアップソース(No.1)
- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- バックアップ を表示
- クリップボードの中身をファイルに出力 へ行く。
- 1 (2009-07-06 (月) 16:11:24)
目次 #Contents **概要 [#la874bf4] クリップボードの中身をファイルに出力するスクリプト **コード [#g3443599] 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