- VBSで便利なプログラムを作れスレ
602 :デフォルトの名無しさん[sage]:2014/05/24(土) 23:31:01.94 ID:uhxr0PPh - 拾いモノ。通常はSendToフォルダ経由またはD&Dでファイルを指定する
Option Explicit Dim WS,FSO,ie,Ags,Ag0,I Set WS = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set ie = CreateObject("InternetExplorer.Application") Set Ags = WScript.Arguments Ag0 = "" If Ags.Count > 0 Then For I = 0 to Ags.Count - 1 Ag0 = Ag0 & Chr(34) & FSO.GetAbsolutePathName(Ags(I)) & Chr(34) & vbCrLf Next Else Ag0 = Chr(34) & FSO.GetAbsolutePathName(".") & Chr(34) & vbCrLf End If ie.Navigate "about:blank" Do Until (ie.Busy = False) or (ie.Document.ReadyState = "complete") WScript.Sleep 10 Loop ie.Document.ParentWindow.ClipboardData.ClearData ie.Document.ParentWindow.ClipboardData.SetData "text", Ag0 WScript.Echo(Ag0 & vbCrLf & "以上の文字列をクリップボードへ格納しました。") Set Ags = Nothing Set ie = Nothing Set FSO = Nothing Set WS = Nothing WScript.Quit()
|