<!-- #include file="_private/include/adovbs.inc" -->
<!-- #include file="_private/include/common.inc" -->
<!-- #include file="_private/include/datafunc.inc" -->

<%

Sub LoadDictionary(pDir, pExt, pDictionary)
  'PURPOSE: Return directory list

  Set filesystem = CreateObject("Scripting.FileSystemObject")
  Set folder = filesystem.GetFolder(pDir)
  Set filecollection = folder.Files

  For Each file in filecollection
    if ucase(right(file.shortname,3)) = ucase(pExt) then
      fname = file.shortname
      vernum = left(fname,len(fname)-4)
      if isnumeric(vernum) then
	    pDictionary.Add vernum, vernum
      end if
    end if
  next    
 
  set filesystem=nothing
  set folder=nothing
  set filecollection=nothing

End Sub


set dFiles = NewDictionary
dPath = server.mappath("/downloads")
LoadDictionary dPath, "exe", dFiles

d = dFiles.Items
h = 0
for i = 0 to dFiles.Count - 1
  if h < clng(d(i)) then
    h = clng(d(i))
  end if
next

response.write h

%>