Karl Blessing
Programmer
in a previous post, you'll notice the same function, only difference this time, is that I am not using my ActiveX dll I created, instead, I am going to attempt to make the ASP perform the same task, the place I am stuck at is the GetFileVersion command in the FSO, the Page says it doesnt support that type but MSDN says it does for Visual Basic Scripting. any clue?<br><br><FONT FACE=monospace><br><%<br> if not IsEmpty(Request.Form("Path") then<br> Path = Request.Form("Path"<br> set fs = Server.CreateObject("Scripting.FileSystemObject"<br> if fs.FolderExists(Path) then<br> Set fsFol = fs.GetFolder(Path)<br> Set fsFiles = fsFol.Files<br> %> <Table border=1> <%<br> For each fsFile in fsFiles<br> ObjectPath = fsFile.path<br> FileExt = fs.GetExtensionName(ObjectPath)<br> If LCase(FileExt) = "dll" or LCase(FileExt) = "ocx" or LCase(FileExt) = "exe" then<br> %> <TR> <%<br> %> <TD> <%=fsFile.name%> </TD> <%<br> %> <TD> <%=fs.GetFileVersion(fsFile.path)%> </TD> <%<br> %> </TR> <%<br> end if<br> next<br> %> </Table> <%<br> else<br> Response.Write "<Font Size=+3 color=#FF0000>That path does not exist</FONT>"<br> end if<br> end if<br>%><br></font> <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)