Vbs script deletes the same row

The vbs script deletes a file in a row. You only need to drag the file into it and save the file as the original file with _ out

'Description: directly to be filtered files of the same line dragged to this vbs file <br/>' Author: sysdzw <br/> 'mailbox: sysdzw@163.com <br/>' QQ: 171977759 <br/> '12: 51 2009-7-12 <br/> dim strfilesource, strfileresult, t1 </P> <p> on error resume next <br/> strfilesource = wscript. arguments (0) <br/> strfileresult = left (strfilesource, limit Rev (strfilesource ,". ")-1) &" _out.txt "</P> <p> If strfilesource <>" "Then <br/> T1 = Time () <br/> set FSO = Createobject ("scripting. fil Esystemobject ") <br/> set stream = FSO. opentextfile (strfilesource, 1, false) <br/> set stream2 = FSO. opentextfile (strfileresult, 2, true) </P> <p> set dict = Createobject ("scripting. dictionary ") </P> <p> while not stream. atendofstream <br/> line = stream. readline <br/> if not dict. exists (line) Then <br/> call dict. add (line, null) <br/> call stream2.writeline (line) <br/> end if <br/> Wend </P> <p> stream. Close <br/> stream2.close <br/> msgbox "processed! Total time consumed "& datediff (" S ", T1, time) &" seconds. "& Vbcrlf & strfileresult, vbinformation," del same line QQ: 171977759 "<br/> else <br/> msgbox" no file! ", Vbexclamation," del same line QQ: 171977759 "<br/> end if