<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Const TDIR = 0 Const TFILE = 1 Const FIXEDDISK = 2 Dim i, newid,path, f, sc, fc, fl, FileSystem,btype,drive, drives Dim primarydrive bType = CInt(Request.Querystring("btype")) 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 newid = 0 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 %>