できた Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(".\") for each objf in objfolder.files d = split(objf.name, "★") if ubound(d) > 0 then e = split(d(1), ".") if ubound(e) > 0 then s = s & d(0) & vbtab & e(0) & vbcrlf end if end if next
set objIE = WScript.createObject("InternetExplorer.Application") objIE.navigate "about:blank" while objIE.busy wscript.sleep 10 wend objIE.document.parentWindow.clipboardData.setData "text", s objIE.quit
