[摘要]") '转化为日期数组 '把文件名和时间按照顺序加入二维数组 dim filename_arr() redim filename_arr(ubound(filename_a...
") '转化为日期数组
'把文件名和时间按照顺序加入二维数组
dim filename_arr()
redim filename_arr(ubound(filename_arr0),2) '重新定义
for i=0 to ubound(filename_arr0)-1
filename_arr(i,0)=filename_arr0(i)
filename_arr(i,1)=filename_arr1(i)
next
erase filename_arr0 '删除数组
erase filename_arr1
'－－－－－－按照时间的顺序使用起泡法排列数组－－－－－－
for j=0 to ubound(filename_arr)-1
for i=0 to ubound(filename_arr)-1-j
if filename_arr(i,1)<filename_arr(i+1,1) Then '判断时间先后，如果比后面的晚，交换数据
'交换前后数组内容－－文件名
temp=filename_arr(i,0)
filename_arr(i,0)=filename_arr(i+1,0)
filename_arr(i+1,0)=temp
'交换前后数组内容－－建立时间
temp=filename_arr(i,1)
filename_arr(i,1)=filename_arr(i+1,1)
filename_arr(i+1,1)=temp
end if
next
next
'－－－－－－结束起泡法－－－－－－
file_list=filename_arr '返回二维数组
End Function '结束函数
file_arr=file_list("g:\my documents\txt\") '调用函数返回二维数组
for i=0 to ubound(file_arr)-1
Response.Write(file_arr(i,0)&"--"&file_arr(i,1)&"<br/>") '输出结果
next
%>
关键词：起泡法按照时间排列文件（FSO）