文件遍历排序函数

原创 2003年07月10日 10:05:00

  <%

  function bianli(path)

  'initiate
  path = server.mappath(path)
  set fso=server.CreateObject("scripting.filesystemobject")   
        set objFolder=fso.GetFolder(path)
  set  objfiles = objfolder.files

  '把文件名及文件路经存入theFiles数组
  int slot = 0
  Dim theFiles()
  redim theFiles(50)
  for each objFile in objFiles
   filename = objFile.name
   filePath = split(objFile.path,"docs/")
   thepath1 = "./docs/"
   thepath = thepath1 & filepath(1)
   theFiles(slot) = filename&"**"&thepath
   slot = slot + 1
   if slot > UBound(theFiles) then
    ReDim Preserve theFiles(Slot+20)
   end if
  next
  ReDim Preserve theFiles(slot)
  
  
  '冒泡排序
  for i = 0 to UBound(theFiles)-2
   for j = i+1 to UBound(theFiles)-1
    if strComp(theFiles(i),theFiles(j)) = 1 then
     tmp = theFiles(i)
     theFiles(i) = theFiles(j)
     theFiles(j) = tmp
    end if
   next
  next
  
  '输出
  for i = 0 to UBound(theFiles)-1
    para = theFiles(i)
    filename = split(para,"**",-1,1)(0)
    filepath = split(para,"**",-1,1)(1)
    %>
    <p align = "left">
    ---<img src='../../images/arrow_orange.gif' width='14' height='11'>
    <a href='<%=filepath%>'><span class="activelink_yellow"><%=filename%></span></a>
    </p>
 <%
  next
 end function
%>

winAPI之遍历文件夹

WIN32_FIND_DATA wfd; HANDLE hFind = ::FindFirstFile(strDir + _T("*.*"), &wfd); if (hFind == INVALI...
  • erikaIT
  • erikaIT
  • 2016年01月06日 12:45
  • 315

PHP采用自定义函数实现遍历目录下所有文件的方法

方法一:使用readir()遍历目录 function listDir($dir) { if(is_dir($dir)) { if($handle = opendir($dir)) ...
  • zgmu
  • zgmu
  • 2015年10月20日 18:07
  • 444

文件遍历

http://lingmaisui.blog.163.com/blog/static/95794685201252632524636/
  • smile_summer
  • smile_summer
  • 2013年10月29日 17:39
  • 358

多层文件夹内文件遍历函数

记录Shell脚本经常使用的多层文件夹内文件遍历函数 如下: foreach() { for file in $1/* do if [ -d $file ] ...
  • ivan_b
  • ivan_b
  • 2015年10月23日 10:29
  • 142

JS Array.sort()排序函数

例如: this.Array.sort(function (a, b) { return a.Name() > b.Name() ? 1 : -1 }); 当返回 负数-1。排序认为A对象在B之前...
  • EMISRY
  • EMISRY
  • 2016年11月10日 05:06
  • 421

oracle的几个排序函数 ROW_NUMBER()/DENSE_RANK()/RANK()

oracle的几个排序函数 ROW_NUMBER()/DENSE_RANK()/RANK()
  • jackpk
  • jackpk
  • 2010年09月09日 13:38
  • 3644

C语言中排序函数的用法

C语言中没有预置的sort函数。如果在C语言中,遇到有调用sort函数,就是自定义的一个函数,功能一般用于排序。 一、可以编写自己的sort函数。 如下函数为将整型数组从小到大排序。 void sor...
  • why850901938
  • why850901938
  • 2015年12月10日 22:22
  • 11119

C++标准库中排序函数sort的用法

(一)为什么要用c++标准库里的排序函数 Sort()函数是c++一种排序方法之一,学会了这种方法也打消我学习c++以来使用的冒泡排序和选择排序所带来的执行效率不高的问题!因为它使用的排序方法是类似于...
  • chandoudeyuyi
  • chandoudeyuyi
  • 2015年06月27日 14:19
  • 5076

Python学习 文件遍历

Python的文件遍历主要使用的os这个模块,这里为了方便显示同时使用了一个图形化的库Tkinter。Tkinter是Python自带的一个GUI开发库,虽然没有PyQt或wxPython那么强大,但...
  • killua_hzl
  • killua_hzl
  • 2010年08月05日 07:29
  • 1154

字节排序函数与字节操纵函数

字节排序函数        考虑一个16bit的整数,它由2个字节组成。内存中存储这两个字节有两种方法:一种是将低序字节存储在起始位置,这种称为小端(little-endian)字节序,另一种是将高...
  • xxx134617
  • xxx134617
  • 2012年11月15日 19:40
  • 638
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:文件遍历排序函数
举报原因:
原因补充:

(最多只允许输入30个字)