−−−−− Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fs Dim f Dim file_name
Set Ie = WScript.CreateObject("InternetExplorer.Application") Ie.Navigate "about:blank" Set oClip=Ie.Document.parentWindow.clipboardData sData=oClip.getData("text") If IsNull(sData) Then sData="" file_name = InputBox("datファイルのキーNo.を入力してください") Set fs = CreateObject("Scripting.FileSystemObject") set f = fs.CreateTextFile(file_name+".dat", True)