[求助]asp FSO操作,取出文件夹下的最新的文件

lonz 2004-11-24 09:01:13
要实现的功能是:
取出一个文件夹下 最新的 那个文件的文件名!

谢谢
...全文
88 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xczhouyang 2004-11-24
888228(同志,请记得结贴!)
我觉得你的方法可能会比 lonz() 的速度更慢慢,比较了一下我觉得lonz() 好
回复
lonz 2004-11-24
明白了。谢谢大家!
回复
888228 2004-11-24
直接读取应该是不行的.我查了很多相关资料的.都是先弄成数组.然后再排序.毕竟不象数据库,可以Order by..


如果是要读取最新的1个文件.用以下代码吧~~



dim folderPath
folderPath = Server.MapPath("images/") '修改成你要的路径,对这个路径下的文件按日期排列
dim fso,f
set fso=server.CreateObject("Scripting.filesystemobject")
set fld=fso.Getfolder(folderPath)

for each f in fld.files
dd=f.DateLastModified
dd1=year(dd)&"-"&right("0"&month(dd),2)&"-"&right("0"&day(dd),2)&" "
str=str&dd1&f.name&"|"
'response.write f.DateLastModified&f.name &"<br/>"
i=i+1
next

tmp=split(str,"|")
for j=0 to ubound(tmp)
str1=""
for i=0 to ubound(tmp)
if i=ubound(tmp) then exit for
if tmp(i)<=tmp(i+1) then
tt=tmp(i)
tmp(i)=tmp(i+1)
tmp(i+1)=tt
end if
str1=str1&tmp(i)&"|"
next
next

tmp1=split(str1,"|")

response.write num1&". "&tmp1(0)&"<br/>"
回复
xczhouyang 2004-11-24
lonz() 你办法算是好的了,除非能够读取时直接排序,但好象没有直接排序的
回复
sfply 2004-11-24
我也在想这个问题,如何使用WINDOWS的排序方式让目录按要求排序
回复
lonz 2004-11-24
能不能读取的时候就直接排序。取第一个就可以了??


下面是我自己写的一段。不过感觉速度有点慢!!
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("E:\jpg")
'列出文件
Set fc = f.Files
dim LastestFileName
dim LastFileDate

LastFileDate="2000-11-12 20:12:04"
For Each f1 in fc
if (Cstr(f1.datelastmodified) > LastFileDate) then
LastFileDate=f1.datelastmodified
LastestFileName=f1.name
end if

Next
set fso=nothing
回复
888228 2004-11-24
上面是对整个目录的文件进行读取,按照时间排列.

你如果只要最新的那个的话,就改成循环一次就行了.
回复
888228 2004-11-24
<%
dim folderPath
folderPath = Server.MapPath("images/") '修改成你要的路径,对这个路径下的文件按日期排列
dim fso,f
set fso=server.CreateObject("Scripting.filesystemobject")
set fld=fso.Getfolder(folderPath)
for each f in fld.files
dd=f.DateLastModified
dd1=year(dd)&"-"&right("0"&month(dd),2)&"-"&right("0"&day(dd),2)&" "
str=str&dd1&f.name&"|"
'response.write f.DateLastModified&f.name &"<br/>"
next
tmp=split(str,"|")
for j=0 to ubound(tmp)
str1=""
for i=0 to ubound(tmp)
if i=ubound(tmp) then exit for
if tmp(i)<=tmp(i+1) then
tt=tmp(i)
tmp(i)=tmp(i+1)
tmp(i+1)=tt
end if
str1=str1&tmp(i)&"|"
next
next
tmp1=split(str1,"|")
for k= 0 to ubound(tmp1)-1
num1=num1+1
response.write num1&". "&tmp1(k)&"<br/>"
next%>
回复
TSD 2004-11-24
看看这个,然后将文件时间作个对比就行了
http://community.csdn.net/Expert/TopicView.asp?id=3568110
回复
相关推荐
综教楼后的那个坑用双向链表实现 描述   在 LIT 综教楼后有一个深坑,关于这个坑的来历,有很多种不同的说法。其中一种说法是,在很多年以前,这个坑就已经在那里了。这种说法也被大多数人认可,这是因为该坑有一种特别的结构,想要人工建造是有相当困难的。   从横截面图来看,坑底成阶梯状,由从左至右的 1..N 个的平面构成(其中 1 ≤ N ≤ 100,000),如图:    *            * :    *            * :    *            * 8    *    **      * 7    *    **      * 6    *    **      * 5    *    ********* 4 <- 高度    *    ********* 3    ************** 2    ************** 1 平面 |  1  |2|   3    | 每个平面 i 可以用两个数字来描述,即它的宽度 Wi 和高度 Hi,其中 1 ≤ Wi ≤ 1,000、1 ≤ Hi ≤ 1,000,000,而这个坑最特别的地方在于坑底每个平面的高度都是不同的。每到夏天,雨水会把坑填满,而在其它的季节,则需要通过人工灌水的方式把坑填满。灌水点设在坑底位置最低的那个平面,每分钟灌水量为一个单位(即高度和宽度均为 1)。随着水位的增长,水自然会向其它平面扩散,当水将某平面覆盖且水高达到一个单位时,就认为该平面被水覆盖了。   请你计算每个平面被水覆盖的时间。    灌水 水满后自动扩散 | | * | * * | * * * * V * * V * * * * * * .... * *~~~~~~~~~~~~* * ** * *~~~~** : * *~~~~**~~~~~~* * ** * *~~~~** : * *~~~~**~~~~~~* * ** * *~~~~**~~~~~~* *~~~~**~~~~~~* * ********* *~~~~********* *~~~~********* *~~~~********* *~~~~********* *~~~~********* ************** ************** ************** ************** ************** **************    4 分钟后    26 分钟后        50 分钟后    平面 1 被水覆盖     平面 3 被水覆盖    平面 2 被水覆盖输入   输入的第一行是一个整数 N,表示平面的数量。从第二行开始的 N 行上分别有两个整数,分别表示平面的宽度和高度。 输出   输出每个平面被水覆盖的时间。
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-24 09:01
社区公告
暂无公告