2.8w+
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
bybee 2004-11-24
那不还是都得循环一遍！
谢谢各位了！
我现在也是都循环一遍，每次对比下文件修改时间，如果符合我时间条件的我就备份下！
谢谢各位了！
我现在也是都循环一遍，每次对比下文件修改时间，如果符合我时间条件的我就备份下！
yqh1314 2004-11-23
fenmixiao() 写的很明确的！
若白师妹 2004-11-23
呃,其实还是要整个文件都循环一遍
若白师妹 2004-11-23
冒泡法:
<%
dim folderPath
folderPath = "D:\Inetpub\wwwroot\test" '修改成你要的路径,对这个路径下的文件按日期排列
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%>
<%
dim folderPath
folderPath = "D:\Inetpub\wwwroot\test" '修改成你要的路径,对这个路径下的文件按日期排列
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%>
bearzhan88 2004-11-23
可以
基本思路如下：
定义数组，然后遍里当前文件对象（for each in ****.files）,用气泡排序法先排序（比较规则为按什么排就比较什么），逐次给数组赋值，然后输出数组。
基本思路如下：
定义数组，然后遍里当前文件对象（for each in ****.files）,用气泡排序法先排序（比较规则为按什么排就比较什么），逐次给数组赋值，然后输出数组。
fenmixiao 2004-11-23
我也从网上找的，所以f1.write(...My name is cnbruce)保留下来。
fenmixiao 2004-11-23
<%
whichfile=Server.MapPath("testfile.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.Close
Set f2 = fso.GetFile(whichfile)
s = "文件名称：" & f2.name & "<br>"
s = s & "文件短路径名：" & f2.shortPath & "<br>"
s = s & "文件物理地址：" & f2.Path & "<br>"
s = s & "文件属性：" & f2.Attributes & "<br>"
s = s & "文件大小： " & f2.size & "<br>"
s = s & "文件类型： " & f2.type & "<br>"
s = s & "文件创建时间： " & f2.DateCreated & "<br>"
s = s & "最近访问时间: " & f2.DateLastAccessed & "<br>"
s = s & "最近修改时间: " & f2.DateLastModified
response.write(s)
%>
whichfile=Server.MapPath("testfile.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.Close
Set f2 = fso.GetFile(whichfile)
s = "文件名称：" & f2.name & "<br>"
s = s & "文件短路径名：" & f2.shortPath & "<br>"
s = s & "文件物理地址：" & f2.Path & "<br>"
s = s & "文件属性：" & f2.Attributes & "<br>"
s = s & "文件大小： " & f2.size & "<br>"
s = s & "文件类型： " & f2.type & "<br>"
s = s & "文件创建时间： " & f2.DateCreated & "<br>"
s = s & "最近访问时间: " & f2.DateLastAccessed & "<br>"
s = s & "最近修改时间: " & f2.DateLastModified
response.write(s)
%>
xx123731 2004-11-23
不知道，帮你顶一下
Altium Designer Beta 19.0.10完整版安装包+安装教程+和谐文件 解决了在某些视角下半透明自由3D体不能看到捕捉点和测量线的问题。 25666 当无法在信号完整性的“模型分配”对话框中更改“值/类型”列值时，修复了回归。 25671 解决了交互式差分对长度调整命令不遵守设置为匹配...
FSO 遍历文件夹，按时间排序，可以删除 网上看到的一个代码改的，之前不能删除，现在改了一下就可以删除了。 <% setfso=CreateObject("Scripting.FileSystemObject") ifrequest("Action")="Del"then whichfile=...
matlab bdir 排序,命令行 - 如何获取按文件夹名称排序的子文件夹及其文件列表 命令行 - 如何获取按文件夹名称排序的子文件夹及其文件列表我可以使用dir命令行来获取子文件夹及其文件的列表，按文件夹名称排序，而不仅仅是文件名？运用dir / s / b / o：gn＆gt;f.txt我首先获得所有子文件夹，...
ASP 按修改时间读取文件夹中文件并且排序 Private Type typFlieDate Name As String CreatedDate As Date AccessedDate As Date ModifiedDate As Date ...Private myFiles() As typFlieDate '包含文件的数组 Private Sub Command1_Click() Dim n As Intege...
vb 实现查找指定的文件，并按照文件名排序 '第一种方式：查找指定目录下的所有文件（具体能不能模糊匹配文件不清楚，没找到合适方法） ' 通过FSO查询目录里的文件 ' Set DriverObject = CreateObject("Scripting.FileSystemObject") ' If DriverObject....
VB 读取文件 VB6.0 实用FSO 概念的日臻成熟，这些文件操作语句已经不能适应软件不断增加的复杂程度的需要了。因此，从VB6.0开始，微软提出了一个全新的文件系统对象FSO。 一、FSO 对象模型 不仅可以象使用传统文件操作语句那样实现...
asp fso读取文件夹，如何按照（1：按创建时间 2：按访问时间 3：按修改时间 4：按名称）排序(2008-09-18,11:19:18)... 读取一个文件夹或子文件夹内的所有文件范例<br><br> <% Dim objFSO,objFolder,objFile,FF '声明 objFSO 变量存放对象实例 FF = Server.MapPath("./images") Set objFSO = Server.CreateObject(...
对某目录下的文件按照日期进行排序 ），该页使用 FileSystemObjectscripting 对象来获取文件名集合，然后按创建日期对其进行排序。有关 FileSystemObject scripting 对象的文档，可以在 Microsoft Windows Script Technologies 站点找到。 调用 ...
xcopy复制文件夹及其子文件_VBA学习笔记48:VBA文件夹操作 学习资源：《Excel VBA从入门到进阶》第48集 by兰色幻想忘了之前老师有没有讲过Dir函数了，还是写一下吧，再开始正文吧：Dir函数：返回一个 String，它表示与指定路径下的文件、目录或文件夹的名称。语法：Dir ...
动易swCMS6.5网站的上传文件管理器及判断文件是否失效的功能模块分析 动易swCMS6.5网站的上传文件管理器及判断文件是否失效的功能模块分析 动易cms6.5网站后台的上传文件管理模块由6个页面组成，现分别简介如下： 1）Admin_UploadFile.asp频道上传文件后台管理页的框架页上框架为...
腾讯等公司python工程师面试题曝光！涨知识了 （3） 将列表a的元素顺序打乱，再对a进行排序得到列表b，然后把a和b按元素顺序构造一个字典d。 用python实现统计一篇英文文章内每个单词的出现频率，并返回出现频率最高的前10个单词及其出现次数，并解答以下问题...
BAT批处理文件语法 扩展名是bat(在nt/2000/xp/2003下也可以是cmd)的文件就是批处理文件。 ==== 注 ======================================= .bat是dos下的批处理文件 .cmd是nt内核命令行环境的另一种批处理文件 从更广义的角度来看，...
了解VBE!VBS教程! 然后用鼠标单击“文件”菜单，单击“保存”，把“保存在”一栏设为桌面，在“文件名”一栏中填写kk.vbs，单击“保存”就可以了。然后最小化“记事本”窗口，在桌面上寻找你刚刚保存的kk.vbs，然...
《程序天下：JavaScript实例自学手册》光盘源码 6.3 被选中的列表项下次不能再选 6.4 不带滚动条的select 6.5 从一个下拉列表往另一个下拉列表添加内容 6.6 改变列表项的上下顺序 6.7 给下拉框数据分组 6.8 获取列表框的选择 6.9 类IE下拉框 6.10 下拉框式邮件发送...
ASP学习笔记大奉献! 6. order by xxx ASC 以XXX为顺序 从小到大排列.'参与排序的字段值不能为空 order by xxx DESC 以XXX为顺序 从大到小排列.'参与排序的字段值不能为空. 7. Response.Write "<Script Language=JavaScript>alert('内容'...
程序天下:JavaScript实例自学手册 6.3 被选中的列表项下次不能再选 6.4 不带滚动条的select 6.5 从一个下拉列表往另一个下拉列表添加内容 6.6 改变列表项的上下顺序 6.7 给下拉框数据分组 6.8 获取列表框的选择 6.9 类IE下拉框 6.10 下拉框式邮件发送...
