當您使用FILESYSTEMOBJECT對象獲得某個目錄下的文件列表的時候，你有沒有發現無法控制它們的排序方式，比如按照名字排序，按照擴展名排序，按照文件大小排序等等，讓我們試著用數組給它們排排序兒。
??? 如果您想通過名字排序，那將是非常簡單的，但是假如你想通過文件大小或者文件創立時間等等來排序的時候，那么將有點麻煩。我們將通過二維數組做到這一點。
??? 下面的代碼演示了如何通過選擇排序方式達到的我們目的，單擊排序，點兩次就反著排了。
<HTML><HEAD><TITLE>文件排序演示</TITLE></HEAD><BODY><%' 設定一個演示目錄，：）CONST DIRECTORY = "/"' 用常數定義排序方式CONST FILE_NAME = 0 '按照名字排序……依次類推CONST FILE_EXT = 1CONST FILE_TYPE = 2CONST FILE_SIZE = 3CONST FILE_CREATED = 4CONST FILE_MODIFIED = 5CONST 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 Thenreverse = truepriorSort = -1Elsereverse = falsepriorSort = sortByEnd 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 curFilesfname = fileItem.Namefext = InStrRev(fname, ".")If fext < 1 Then fext = "" Else fext = Mid(fname,fext+1)ftype = fileItem.Typefsize = fileItem.Sizefcreate = fileItem.DateCreatedfmod = fileItem.DateLastModifiedfaccess = fileItem.DateLastAccessedcurrentSlot = currentSlot + 1If currentSlot > UBound(theFiles) ThenReDim 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 ThenIf reverse Then kind = 1 Else kind = 2 ' 給字符排序ElseIf reverse Then kind = 3 Else kind = 4 '數字、時間。。。End IfFor i = fileCount TO 0 Step -1minmax = theFiles(0)(sortBy)minmaxSlot = 0For j = 1 To iSelect Case kindCase 1mark = (strComp(theFiles(j)(sortBy), minmax, vbTextCompare) < 0)Case 2mark = (strComp(theFiles(j)(sortBy), minmax, vbTextCompare) > 0)Case 3mark = (theFiles(j)(sortBy) < minmax)Case 4mark = (theFiles(j)(sortBy) > minmax)End SelectIf mark Thenminmax = theFiles(j)(sortBy)minmaxSlot = jEnd IfNextIf minmaxSlot <> i Thentemp = theFiles(minmaxSlot)theFiles(minmaxSlot) = theFiles(i)theFiles(i) = tempEnd IfNext' 結束%><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 fileCountResponse.Write "<TR>" & vbNewLineFor j = 0 To UBound(theFiles(i))Response.Write " <TD>" & theFiles(i)(j) & "</TD>" & vbNewLineNextResponse.Write "</TR>" & vbNewLineNext%></TABLE></BODY></HTML>?
新聞熱點
疑難解答
