<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Const TDIR = 0 Const TFILE = 1 Const FIXEDDISK = 2 Const HIDDEN = 2 Const MAX_FS_OBJS = 200 'Maximum number of JavaScript browser objects before heap overflow Dim i, newid, path, f, sc, fc, fl, FileSystem, iFldrCntr, iFileCntr Dim btype, drive, drives, bToManyFSObjects, primarydrive bToManyFSObjects = False newid = 0 bType = CInt(Request.Querystring("btype")) iFldrCntr = 1 'Count from 1 to MAX_FS_OBJS Set FileSystem=CreateObject("Scripting.FileSystemObject") Set drives = FileSystem.Drives For Each drive In drives primarydrive = drive 'Exit after the first FIXEDDISK if there is one... If drive.DriveType = FIXEDDISK Then Exit For End If Next primarydrive = primarydrive & L_SLASH_TEXT If Request.QueryString("path") <> "" Then path = Request.QueryString("path") If FileSystem.FolderExists(path) Then Response.Cookies("HTMLA")("LASTPATH")=path End If Else path = Request.Cookies("HTMLA")("LASTPATH") End If If path = "" Then Response.Cookies("HTMLA")("LASTPATH")=primarydrive path = primarydrive End If %>