Sorting your files by Array

Sorting your files by Array _asp Foundation

Last Update:2017-01-18 Source: Internet

Author: User

Tags sorted by name

Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

When you use the FileSystemObject object to get a list of files in a directory, do you find that you can't control how they are sorted, such as by name, by extension, by file size, and so on, let's try to sort them out with arrays.

If you want to sort by name, that would be very simple, but it would be a bit of a hassle if you wanted to sort by file size or file creation time and so on. We will do this through a two-dimensional array.

The following code shows you how to select the order by which to sort, click Sort, and then line up two times.

<HTML>
<HEAD>
<TITLE> File Sorting Demo </TITLE>
</HEAD>
<BODY>
<%
' Set up a demo directory:
CONST DIRECTORY = "/"
' Define sort by constants
CONST file_name = 0 ' sorted by name ... By analogy
CONST File_ext = 1
CONST File_type = 2
CONST file_size = 3
CONST file_created = 4
CONST file_modified = 5
CONST file_accessed = 6
' Get sort commands, default to sort by name
req = Request ("SortBy")
If Len (req) < 1 Then sortby = 0 Else sortby = CInt (req)
req = Request ("Priorsort")
If Len (req) < 1 Then priorsort =-1 Else priorsort = CInt (req)
' Set reverse
If sortby = Priorsort Then
Reverse = True
Priorsort =-1
Else
Reverse = False
Priorsort = SortBy
End If
' Next we're going to start with the real code ...
Path = Server.MapPath (DIRECTORY)
Set fso = CreateObject ("Scripting.FileSystemObject")
Set Thecurrentfolder = fso. GetFolder (PATH)
Set curfiles = Thecurrentfolder.files
' Give these files a loop.
Dim Thefiles ()
ReDim thefiles (500) ' I casually set a size
Currentslot =-1 ' Start before-a-slot
' We put all the relevant information of the file into the array
For each fileitem in Curfiles
fname = Fileitem.name
Fext = InStrRev (fname, ".")
If Fext < 1 Then fext = "" Else fext = Mid (fname,fext+1)
Ftype = Fileitem.type
Fsize = Fileitem.size
Fcreate = fileitem.datecreated
Fmod = fileitem.datelastmodified
Faccess = fileitem.datelastaccessed
Currentslot = Currentslot + 1
If currentslot > UBound (thefiles) Then
ReDim Preserve Thefiles (currentslot + 99)
End If
' Put it in the array.
Thefiles (Currentslot) = Array (fname,fext,ftype,fsize,fcreate,fmod,faccess)
Next
' It's all in the array now, start the next step
FileCount = Currentslot ' Number of files
ReDim Preserve thefiles (currentslot)
' Sort
' (8 = string)
If VarType (thefiles (0) (sortby)) = 8 Then
IF reverse Then kind = 1 Else kind = 2 ' to sort characters
Else
IF reverse Then kind = 3 Else kind = 4 ' number, time ...
End If
For i = FileCount to 0 Step-1
Minmax = thefiles (0) (SortBy)
Minmaxslot = 0
For j = 1 to I
Select Case Kind
Case 1
Mark = (StrComp (Thefiles (j) (SortBy), Minmax, vbTextCompare) < 0)
Case 2
Mark = (StrComp (Thefiles (j) (SortBy), Minmax, vbTextCompare) > 0)
Case 3
Mark = (Thefiles (j) (SortBy) < Minmax)
Case 4
Mark = (Thefiles (j) (SortBy) > Minmax)
End Select
If Mark Then
Minmax = Thefiles (j) (SortBy)
Minmaxslot = J
End If
Next
If Minmaxslot <> i Then
temp = Thefiles (minmaxslot)
Thefiles (Minmaxslot) = Thefiles (i)
Thefiles (i) = Temp
End If
Next
' End
%>
<form name= "Dosort" method= "Get" >
<input type=hidden name=priorsort value= "<% = Priorsort%>" >
<input Type=hidden Name=sortby value= "-1" >
</FORM>
<script language= "JavaScript" >
function ReSort (which)
{
Document.doSort.sortBy.value = which;
Document.doSort.submit ();
}
</SCRIPT>
<CENTER>
<font size= "+2" >
Display <% = (filecount+1)%> files in this directory <% = Path%>
</FONT>
<P>
Click Sort, point to reverse sort again
<P>
<table border=1 cellpadding=3>
<TR>
<th><a href= "Javascript:resort (0);" > FileName </A></TH>
<th><a href= "Javascript:resort (1);" > Extension </A></TH>
<th><a href= "Javascript:resort (2);" > Type </A></TH>
<th><a href= "Javascript:resort (3);" > Size </A></TH>
<th><a href= "Javascript:resort (4);" > Establishment Time </A></TH>
<th><a href= "Javascript:resort (5);" > Last Modified Time </A></TH>
<th><a href= "Javascript:resort (6);" > Last access Time </A></TH>
</TR>
<%
For i = 0 to FileCount
Response.Write "<TR>" & vbNewLine
For j = 0 to UBound (thefiles (i))
Response.Write "<TD>" & Thefiles (i) (j) & "</TD>" & vbNewLine
Next
Response.Write "</TR>" & vbNewLine
Next
%>
</TABLE>
</BODY>
</HTML>

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More