<%
dim FileFolder, FileFolderArray, FileFolderDropDown, SelectedItem
dim StartNumber, EndNumber, TotalNumber, CurrentNumber, PageMaxNumber, NumberNext, NumberPrevious
dim URLString, View
dim i
FileFolder = trim(request("FileFolder"))
'if FileFolder = "" then FileFolder = "main"
URLString = "showfiles=true"
' Page Navigation
CurrentNumber = 1
PageMaxNumber = 1000
StartNumber = trim(request("StartNumber"))
EndNumber = trim(request("EndNumber"))
if StartNumber = "" or isNumeric(StartNumber) = false then StartNumber = 1
StartNumber = CInt(StartNumber)
if EndNumber = "" or isNumeric(EndNumber) = false then EndNumber = PageMaxNumber
EndNumber = CInt(EndNumber)
NumberNext = "Next"
NumberPrevious = "Prev"
' -------------------------------------------------------
' Page Setup
' -------------------------------------------------------
dim fs, folder, item, TempFile, TempFileSize, TempFileType
dim Files, FileDisplayed
dim SubFolderList
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(EditorRootFolderPath & FileFolder)
' SubFolderList
dim TempSubFolderList
for each item in folder.SubFolders
TempSubFolderList = " " & _
"" & item.Name & " " & vbcrlf
SubFolderList = SubFolderList & TempSubFolderList
next
'Display a list of files
TotalNumber = folder.Files.count
if EndNumber >= TotalNumber then NumberNext = ""
if StartNumber = 1 then NumberPrevious = ""
for each item in folder.Files
TempFile = item.Name
TempFileSize = item.Size
TempFileType = GetFileExtension(TempFile)
TempFileSize = CInt(TempFileSize/1024)
FileDisplayed = false
' Only show certain number of files at once
if CurrentNumber => StartNumber and CurrentNumber <= EndNumber then
' Text details
' Avoid fm_xxx files
if left(lcase(TempFile),3) <> "fm_" then
Files = Files & "" & TempFile & "" & _
" (" & TempFileSize & " Kb)" & _
" " & vbcrlf
end if
end if
CurrentNumber = CurrentNumber + 1
next
if TotalNumber = 0 then Files = "No files in this folder"
' Drop Down Lists
FileFolderArray = split(FileFolderList,",")
for i = 0 to Ubound(FileFolderArray)
'if FileFolder = "" then FileFolderArray(i) = "Root"
FileFolderDropDown = FileFolderDropDown & "" & vbcrlf
next
FileFolderDropDown = "" & vbcrlf
%>
Folders: <%=FileFolderDropDown%>
" & _
"" & item.Name & "