Well those changes got rid of the error and the script does allow for stopping the compare function. Unfortunately the initial display is totally screwed up, double entries, everything matches, etc.
' Maybe you can use this file. (DEMO.VBS)
' It write a HTML file.
' Lightgreen for plugin enabled.
' Yellow for disabled.
' PS. It work better if the INF (and XML)
' files is named as the same name like its folder.
' Safe to use: It wont write anything except the HTML file.
' BTW. If you hide a plugin folder, it wont see it.
' Regards Plugin Builder, (Benny Pedersen).
' Plugin Builder : http://www.911cd.net/forums//index.php?s=&showtopic=16021&view=findpost&p=105827
option explicit
'** Adjust the next 6 lines (if only one PEB version: path1=path0)
dim path0: path0= "e:\pebuilder313\plugin"
dim path1: path1= "e:\pebuilder3110a\plugin"
dim bmp0: bmp0= path0 & "\..\bartpe.bmp"
dim bmp1: bmp1= path1 & "\!custom\Eds.bmp"
dim go0: go0= path0 & "\nu2menu\nu2goOLD.bmp"
dim go1: go1= path1 & "\nu2menu\nu2go.bmp"
dim htm: htm= "PEupgrade.htm"
dim ShowNext:ShowNext=1
dim str0,e0,bg0,bd0
dim str1,e1,bg1,bd1, a(300,1),arr,str,i,iEnd,e,b,f
dim fso: set fso= createObject("scripting.fileSystemObject")
' Listing sorts better if lcase used. Separates my mixed case names from defaults.
' str0= lcase(GetFolders(path0))
' str1= lcase(GetFolders(path1))
str0= GetFolders(path0)
str1= GetFolders(path1)
str = str0 & str1
arr = split(str,vbLf): iEnd= uBound(arr)-1: sort arr,iEnd
for i=0 to iEnd
e= mid(arr(i),inStrRev(arr(i),"\"))
a(i,0)= path0 & e
a(i,1)= path1 & e
b= -(instr(str0,e& vbLf)>0) & -(instr(str1,e& vbLf)>0)
' Plugin Builder : http://www.911cd.net/forums//index.php?s=&showtopic=16021&view=findpost&p=106048
' select case b: case 11 i=i+1: case else a(i,-(b>1))=""
' select case b: case 11 MyFiles a(i,0),a(i,1): i=i+1: case else a(i,-(b>1))=""
select case b:case 11 if ShowNext then MyFiles a(i,0),a(i,1)
end select
next
set f=fso.openTextFile(htm,2,true)
f.writeLine"<html><head><style>" & vbCrLf & "img{border:0;}"&_
"a:link,a:visited,a:hover,a:active{font-weight:bold;color:blue;"_
&"text-decoration:none;}a:hover,a:active{background-color:white;}"
f.writeLine"</style></head>" & vbCrLf & "<body bgColor=white>"
f.writeLine"<table border=1>"
f.writeLine"<tr><td><a target=a href=""file:\"&_
path0 & "\.."">"&vbCrLf& "<img src=""file:\"& bmp0 & """ width=99></a>" &vbCrLf&_
"<a target=a href=""file:\"& path0 & "\nu2menu"">" &vbCrLf&_
"<img src=""file:\"& go0 & """></a></td>" &vbCrLf&_
"<td><a target=b href=""file:\"& path1 & "\.."">" &vbCrLf&_
"<img src=""file:\"& bmp1 & """ width=99></a>" &vbCrLf&_
"<a target=b href=""file:\"& path1 & "\nu2menu"">" &vbCrLf&_
"<img src=""file:\"& go1 & """></a></td></tr>"
f.writeLine"<tr><td borderColor=white>"&_
"<b>Yellow = disabled</b></td><td borderColor=white>"&_
"<b>Green = enabled</b></td></tr>"
for i=0 to iEnd
e0= mid(a(i,0), inStrRev(a(i,0), "\")+1)
e1= mid(a(i,1), inStrRev(a(i,1), "\")+1)
if e0 & e1 <> "" then
bg0= color(a(i,0) & "\" & e0 & ".inf")
bd0= color(a(i,0) & "\" & e0 & ".xml")
bg1= color(a(i,1) & "\" & e1 & ".inf")
bd1= color(a(i,1) & "\" & e1 & ".xml")
f.writeLine"<tr>"
f.writeLine"<td border"& bd0 &" bg"& _
bg0 &"><a target=a href=""file:\"& a(i,0) &_
""">"& e0 &"</a></td>"
f.writeLine"<td border"& bd1 &" bg"& _
bg1 &"><a target=b href=""file:\"& a(i,1) &_
""">"& e1 &"</a></td>"
f.writeLine"</tr>"
end if
next
f.writeLine"<tr><td border"& bd0 &_
"><b>Yellow = disabled</b></td><td border"& bd0 &_
"><b>Green = enabled</b></td></tr>"
f.writeLine"</table></body></html>":f.close
createObject("wScript.shell").run htm
function color(byVal file)
if fso.fileExists(file)then
select case right(file,3)
case "inf" color="#"& mid("90ee90.ffff00",(2+cBool(inStr(1,_
fso.openTextFile(file,1).readAll,"Enable=1",1)))^3,6)
case "xml" color="white"
end select
else color="white"
' color="red":if "\"=left(right(file,5),1)then color="white"
end if: color="Color="& color
end function
function GetFolders(P): dim f
for each f in FSO.getFolder(P).subfolders
if f.attributes and 2 then
' hidden
else GetFolders=GetFolders& f &vbLf
end if
next
end function
sub switch(byRef A,byRef B,byRef T):T=A:A=B:B=T:end sub
function Sort(byRef ArrF,byVal iEnd)
dim F2,F1,i,T:T=empty
if iEnd>0 then T=""
do until isEmpty(T):T=empty
for i=1 to iEnd
F1=fso.getFilename(ArrF(i))
F2=fso.getFilename(ArrF(i-1))
if F1<F2 then switch ArrF(i-1),ArrF(i),T
next
loop
end function
sub MyFiles(byVal path0, byVal path1)
path0= lCase(path0): path1= lCase(path1)
dim htm:htm= "tmp1.htm"
dim str0,str1,arr,iEnd,i,a(2000,1),b,len0,len1,f,diff
str0= lcase(GetFiles(path0,true,""))
str1= lcase(GetFiles(path1,true,""))
arr = split(str0 & str1,vbLf): iEnd= uBound(arr)-1: sort arr,iEnd
for i=0 to iEnd
a(i,0)= replace(arr(i), path1, path0)
a(i,1)= replace(arr(i), path0, path1)
b= -(instr(str0,a(i,0)& vbLf)>0)& -(instr(str1,a(i,1)& vbLf)>0)
select case b:case 11 i=i+1:case else a(i,-(b>1))="":end select
next
len0= len(path0)+2: len1= len(path1)+2
set f= fso.openTextFile(htm,2,true)
f.write"<html><head><style>"& vbCrLf & "img{border:0;}"&_
"a:link,a:visited,a:hover,a:active{font-weight:bold;color:blue;"_
&"text-decoration:none;"_
&"line-height:12px;}a:hover,a:active{background-color:red;}"_
& vbCrLf & "</style></head>" & vbCrLf & "<body bgColor=#f5f5f5>"
f.writeLine"<table border=1>" & vbCrLf _
&"<tr><td><a target=a href="""& path0 & """>"&path0 &"</a></td>"_
&"<td><a target=b href="""& path1 &""">"& path1 &"</a></td>"_
&"<td></td></tr>"
for i=0 to iEnd
if a(i,0) & a(i,1) <> "" then
f.writeLine"<tr>"
f.writeLine"<td><a target=a href=""file:\"& a(i,0) &""">"_
& mid(a(i,0),len0) &"</a></td>"
f.writeLine"<td><a target=b href=""file:\"& a(i,1) &""">"_
& mid(a(i,1),len1) &"</a></td>"
diff= Difference(a(i,0), a(i,1))
select case diff
case -1 f.write"<td borderColor=#ff0000 bgColor=#f5f5f5>"
case 0 f.write"<td borderColor=#f5f5f5 bgColor=#90ee90>"
case else f.write"<td borderColor=#f5f5f5 bgColor=#ff0000>"
end select: f.writeLine diff & "</td></tr>"
end if
next
f.writeLine"</table></body></html>":f.close
' createObject("wScript.shell").run htm
' msgBox path0 & vbLf & path1, 4096, "/ Press ESC Key . . ."
createObject("wScript.shell").run htm: wScript.sleep 100
ShowNext= msgBox(path0 & vbLf & path1, 4097) -2
if vbCancel=msgBox(path0 & vbLf & path1, vbOKCancel+4096)then ShowNext=0
end sub
function GetFiles(P,Recurse,List): dim f
for each f in FSO.getFolder(P).files
List= List & f & vbLf
next
if(Recurse)then
for each f in FSO.getFolder(P).subfolders
GetFiles f,Recurse,List
next
end if
GetFiles= List
end function
function Difference(byVal file0, byVal file1)
if not fso.fileExists(file0) _
or not fso.fileExists(file1) _
then Difference= -1:exit function
Difference= 0: dim f0,f1,r0,r1,lineNumb:lineNumb=true
if inStr(1,".exe.com.zip.bin.iso",_
right(file0,4),1)then lineNumb=false
set f0= fso.openTextFile(file0,1)
set f1= fso.openTextFile(file1,1): on error resume next
do: Difference= Difference +1
if lineNumb then
r0= f0.readLine: r1= f1.readLine
else r0= f0.read(100000000): r1= f1.read(100000000)
end if
if r0 <> r1 then on error goto 0:exit function
loop until err: on error goto 0: Difference= 0
end function
Note, I have PFE32, line number references do work.
to make it upper case, but now can not find it.
..thank anyway.. 
Though I can see how you would think I am. 
