文件遍历排序函数_FSO专题

<%

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

%>

时间： 2024-10-25 08:09:54

文件遍历排序函数_FSO专题的相关文章

文件遍历排序函数

遍历|函数|排序 <% 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 theFile

遍历目录以及目录下文件的函数_FSO专题

<%@ Language=VBScript%> <%function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders for each objSubFolder in objSubFolde

asp 中常用的文件处理函数_FSO专题

asp 中处理文件上传以及删除时常用的自定义函数 <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '所有自定义的VBS函数 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function DeleteFile(Filename) '删除文件 if Filename<>"&quo

asp遍历站点所有文件夹的代码_FSO专题

<!-- 遍历站点所有文件夹 -->   <style>   <!--   body{font-size:12px;}   -->   </style>   <script language="vbscript">   <!--   sub fsubmit()   form1.submit   End sub   -->   </script>   <form name="form1&q

推荐ASP中VBScript常用函数_FSO专题

/*-------------------ASP文档参考集-----------------------*/ *-->作者:草履虫 *-->时间:2007-4.28---2007-4.30(原来是自己编写的手册,现在发在这里) *-->联系:caolvchong@gmail.com *-->文档功能: 1.复习了ASP,加深了对ASP结构的理解和ASP的体会 2.可以用来做ASP参考,自己写的,参考起来更方便 这是第五部分:ASP中VBScript常用函数 /*----------

ASP常用的函数_FSO专题

ASP常用的函数,希望能用的着. <% dim db db="dbms.mdb" '****************************************************************** '执行sql语句,不返回值,sql语句最好是如下: 'update 表名 set 字段名=value,字段名=value where 字段名=value 'delete from 表名 where 字段名=value 'insert into 表名 (字段名,字段名

asp利用fso给文件夹和文件改名的代码_FSO专题

<% Dim fso,f,folder     Set fso=Server.CreateObject("scripting.filesystemobject")     '改目录名     Set folder=fso.getfolder(Server.Mappath("Old"))     folder.name="New" '新名字     '改文件名     Set f=fso.getfile(Server.Mappath(&quo

读取目录下的文件得到一个数组_FSO专题

filename=dir("盘符:\*.*") i = 0 do while filename = "" array1 (i)=filename i = i + 1 filename = dir("c:\*.*") loop VB好象也有比较好的方法,但是我不太清楚了 VBScript Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolde

c语言-C语言选择法排序函数的实现问题

问题描述 C语言选择法排序函数的实现问题 我在看C语言程序设计是遇到一个问题,用选择法对数组中的5个整数按由小到大排序 #include int main() { void sort(int array[],int n); int a[5],i; printf("Please input 5 numbers:n"); for(i=0;i<5;i++) scanf("%d",&a[i]); sort(a,5); printf("the sort