//ついでにこんなのも
A="New Text Document.txt"
B=FolderView.Pass+"\\"
C=B+A
D=new ActiveXObject("Scripting.FileSystemObject")
do{
for(E=2;D.FileExists(C);E++)
C=B+A.slice(0,A.split(".")[0].length)+" ("+E+")"+A.slice(A.split(".")[0].length)
E=new ActiveXObject("ScriptControl")
E.Language="vbscript"
A=E.Eval('InputBox("","","'+C.slice(B.length)+'")')
C=B+A
}while(D.FileExists(C) && A>"")
if(A>""){
D.CreateTextFile(C)
D=new ActiveXObject("WScript.Shell")
D.Run(D.RegRead("HKCR\\"+D.RegRead("HKCR\\.txt\\")+"\\shell\\open\\command\\").replace("%1",C))}