Karl Blessing
Programmer
I get this error when trying to execute the code.<br><br><FONT FACE=monospace><br>C:\Temp\Karl<br>WebSARASInstall.exe Microsoft VBScript runtime error '800a000d' <br><br>Type mismatch <br><br>/wsDianostic/default.asp, line 22 <br></font> <br><br>and this is the section of the code around line 22<br><br><FONT FACE=monospace><br><%<br>if not IsEmpty(Request.Form("Path") then<br> set fs = CreateObject("Scripting.FileSystemObject"<br> set Comp = CreateObject("wsDianostic.Componets"<br> dim TempVer<br> if fs.FolderExists(Request.Form("Path") then<br> Response.Write "<strong>" & Request.Form("Path" & "</strong><BR>"<br> set fsFol = fs.GetFolder(Request.Form("Path")<br> set fsFiles = fsFol.Files<br> %> <Table> <%<br> for each File in fsFiles<br> if Comp.VersionInfo(Request.Form("Path", File.name,TempVer) then<br> %> <TR> <%<br> %> <TD> <%=File.Name%> </TD> <% <br> for j = Lbound(TempVer) to UBound(TempVer)<br><b> %> <TD> <%=TempVer(j)%> </TD> <% </b><br> next<br> %> </TR> <%<br> end if<br> next<br> %> </Table> <%<br> else<br> Response.Write "<Font Size=+3 fgcolor=#FF0000>That path does not exist</FONT>"<br> end if<br>end if<br>%></font><br><br><br><br>The VersionInfo dll, one I created, returns a Variant Array into that Result. I did make it see what the lowerbound, and upperbound was, which seemed to be the correct number of objects, but I cannot get a single element out of it due to the error. <p>Karl<br><a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a><br><a href= </a><br>Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)