clipコマンドを利用してクリップボードに文字列をコピーするVBScript
clipコマンドを利用して文字列をクリップボードにコピーするVBScriptです。
Option Explicit
Dim s
s = "こんにちは" & vbTab & """田中""" & vbTab & "さん"
PutInClipboardText s
MsgBox "文字列をクリップボードにコピーしました。" & vbCrLf & "文字列:" & s
Public Sub PutInClipboardText(ByVal str)
Dim cmd
cmd = "cmd /c ""echo " & str & "| clip"""
CreateObject("WScript.Shell").Run cmd, 0
End Sub
XPは標準でclipコマンドが入っていなかったような記憶がありますが、7では標準でclipコマンドが使えるようだったのでスクリプトを書いてみました。
以前に書いたInternet Explorerを使ったスクリプトよりも軽くて使いやすいです。
ブログランキング
ブログランキングに参加しています。
この記事が少しでもお役にたてましたら、応援いただけると大変うれしいです。
関連記事
コメント
-
2012年 4月 03日
-
2012年 4月 03日
-
2013年 11月 22日トラックバック：2013年10月の人気記事 | 初心者備忘録
この記事へのコメントはありません。