CODE: [Copy to clipboard]
'#act#parcel.vbe
''ThisScriptParcel,code by paktc + if_exist + 523066680
:set fs=createobject("scripting.filesystemobject")
:set readme=fs.opentextfile(wscript.scriptname)
:act=0
:while readme.atendofstream=false
: linea=readme.readline
: if left(linea,6)=chr(39) &"#end#" then
: act=0 : fnow.close
: end if
: if act=1 then
: fnow.writeline mid(linea,2)
: end if
: if left(linea,6)=chr(39) &"#act#" then
: act=1
: set fnow=fs.createtextfile(mid(linea,7),true)
: end if
:wend
'wscript.quit
'#end#parcel.vbe
fold=replace(wscript.scriptfullname,wscript.scriptname,"")
set parcel=fs.opentextfile("parcel.vbe",8)
strx=""
format="txt,vbs,bat"
for each fname in fs.getfolder(fold).files
if replace(format,lcase(right(fname,3)),"")<>format then
if replace(fname,wscript.scriptname,"")=fname then
strx=strx& fname &vbcrlf
set readx=fs.opentextfile(fname)
parcel.writeline chr(39) &"#act#"&fs.getfilename(fname)
parcel.writeline chr(39) &replace(readx.readall,vbcrlf,vbcrlf &chr(39))
parcel.writeline chr(39) &"#end#"&fs.getfilename(fname)
end if
end if
next
readx.close : parcel.close : msgbox strx
wscript.quit
打包当前的vbs txt bat三种脚本(个人用途) 生成parcel.vbe