FSO利用数组给您的文件排序_友诺网--SOHO乐园，工作社区

当您使用FILESYSTEMOBJECT对象获得某个目录下的文件列表的时候，你有没有发现无法控制它们的排序方式，比如按照名字排序，按照扩展名排序，按照文件大小排序等等，让我们试着用数组给它们排排序儿。
如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。

下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。

<HTML>  
<HEAD>  
<TITLE>文件排序演示</TITLE>  
</HEAD>  
<BODY>  
<%  
' 设定一个演示目录，：）  
CONST DIRECTORY = "/"  
' 用常数定义排序方式  
CONST FILE_NAME = 0 '按照名字排序……依次类推  
CONST FILE_EXT = 1  
CONST FILE_TYPE = 2  
CONST FILE_SIZE = 3  
CONST FILE_CREATED = 4  
CONST FILE_MODIFIED = 5  
CONST FILE_ACCESSED = 6  
'获得 排序命令，默认为按照名字排序  
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)  
'设置倒序  
If sortBy = priorSort Then  
reverse = true  
priorSort = -1  
Else  
reverse = false  
priorSort = sortBy  
End If  
' 接下来开始我们真正的代码了。。。  
path = Server.MapPath( DIRECTORY )  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set theCurrentFolder = fso.GetFolder( path )  
Set curFiles = theCurrentFolder.Files  
' 给这些文件做一个循环  
Dim theFiles( )  
ReDim theFiles( 500 ) ' 我随便定的一个大小  
currentSlot = -1 ' start before first slot  
' 我们将文件的所有相关信息放到数组里面  
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  
' 放到数组里  
theFiles(currentSlot) = Array(fname,fext,ftype,fsize,fcreate,fmod,faccess)  
Next  
' 现在都在数组里了，开始下一步  
 
fileCount = currentSlot ' 文件数量  
ReDim Preserve theFiles( currentSlot )  
' 排序  
' (8 表示 string)  
If VarType( theFiles( 0 )( sortBy ) ) = 8 Then  
If reverse Then kind = 1 Else kind = 2 ' 给字符排序  
Else  
If reverse Then kind = 3 Else kind = 4 '数字、时间。。。  
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  
' 结束  
%>  
<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">  
显示<% = (fileCount+1) %> 该目录下的文件<% = path %>  
</FONT>  
<P>  
单击排序，再点一次反向排序  
<P>  
<TABLE Border=1 CellPadding=3>  
<TR>  
<TH><A HREF="javascript:reSort(0);">文件名</A></TH>  
<TH><A HREF="javascript:reSort(1);">扩展名</A></TH>  
<TH><A HREF="javascript:reSort(2);">类型</A></TH>  
<TH><A HREF="javascript:reSort(3);">大小</A></TH>  
<TH><A HREF="javascript:reSort(4);">建立时间</A></TH>  
<TH><A HREF="javascript:reSort(5);">上次修改时间</A></TH>  
<TH><A HREF="javascript:reSort(6);">上次存取时间</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>

详细出处参考：http://www.jb51.net/article/3748.htm

友诺网--SOHO乐园，工作社区

搜索

热门标签

FSO利用数组给您的文件排序