<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<%
Const L_LOOKIN_TEXT = "ファイルの場所:"
Const L_NAME_TEXT = "名前"
Const L_SIZE_TEXT = "サイズ"
Const L_TYPE_TEXT = "種類"
Const L_LASTMODIFIED_TEXT = "変更日"
Const L_SLASH_TEXT = "\"
Const L_DBLSLASH_TEXT = "\\"
Const L_FWDSLASH_TEXT = "/"
Const FIXEDDISK = 2
Dim path, FileSystem, drives, drive, primarydrive
path = Request.Cookies("HTMLA")("LASTPATH")
If path = "" Then
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
Response.Cookies("HTMLA")("LASTPATH")=primarydrive
path = primarydrive
End If
%>