Tutorials to .com

Tutorials to .com » Asp » Fso » Traversal function to sort files

Traversal function to sort files

Print View , by: iSee ,Total views: 12 ,Word Count: 271 ,Date: Thu, 16 Apr 2009 Time: 4:37 AM

<%

function bianli (path)

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

'The file name and file path into an array 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)


'Bubble Sort
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

'Output
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
%>


ASP File System Object Articles


Can't Find What You're Looking For?


Rating: Not yet rated

Comments

No comments posted.