[会员中心]  [发布文章][发布软件]  [中文繁體]

文章·资料  电脑软件  手机软件  网站源码 电脑·手机·网络学习话题娱乐故事 文化·历史国学典籍法律法规 操作系统网络办公·文件音频视频图形图像 硬件·驱动程序行业教学学习编程游戏 安卓苹果鸿蒙 其他 ASPASP.NETJSPPHP HTML·CSS·JavaScript

本 站 搜 索 文章 软件 [选项] 文章类别： [全部]电脑·手机·网络话题故事文化·历史娱乐学习法律·法规国学典籍 搜索选项： 文章编号 文章标题 文章作者 文章来源 相关链接 关键字词 文章标签 文章内容 软件类别： [全部]操作系统网络办公·文件音频视频图形图像行业编程教学学习游戏硬件·驱动程序安卓系统苹果系统鸿蒙系统其他系统HTML·CSS·JavaScriptASPJSPPHPASP.NET 搜索选项： 软件编号 软件名称 软件作者 软件来源 相关链接 关键字词 软件标签 软件简介

发 送 文 章 用ASP 按修改时间读取文件夹中文件并排序 〖评论()〗〖留言〗〖收藏〗  收信地址 填写收信人的电子邮箱 邮件主题 填写邮件主题 邮件内容 Option Explicit Private Type typFlieDate Name As String CreatedDate As Date AccessedDate As Date ModifiedDate As Date End Type Private myFiles() As typFlieDate '包含文件的数组 Private Sub Command1_Click() Dim n As Integer n = GetFolderFiles( "d:\" , 1) End Sub Private Function GetFolderFiles(Path As String, OrderBy As Integer) As Integer 'path 文件夹路径 'orderby 排序依据 1：按创建时间 2：按访问时间 3：按修改时间 4：按名称 '返回文件夹中文件的个数 '如果要计算子文件夹可以通过 fldr.SubFolders 访问，方法类似 Dim tmpFile As typFlieDate Dim n As Integer, i As Integer, j As Integer Dim fso As New FileSystemObject Dim fldr As Folder Dim fls As Files Dim fl As File '读去文件 Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.GetFolder(Path) Set fls = fldr.Files n = fls.Count If n 0 Then ReDim myFiles(n - 1) i = 0 For Each fl In fls myFiles(i).Name = fl.Name myFiles(i).AccessedDate = fl.DateLastAccessed myFiles(i).CreatedDate = fl.DateCreated myFiles(i).ModifiedDate = fl.DateLastModified i = i + 1 Next '排序 --- 升序 For i = 0 To n - 1 For j = i + 1 To n - 1 Select Case OrderBy Case 1 '创建时间 If myFiles(i).CreatedDate myFiles(j).CreatedDate Then tmpFile = myFiles(i) myFiles(i) = myFiles(j) myFiles(j) = tmpFile ' tmpFile.Name = myFiles(i).Name ' tmpFile.AccessedDate = myFiles(i).AccessedDate ' tmpFile.CreatedDate = myFiles(i).CreatedDate ' tmpFile.ModifiedDate = myFiles(i).ModifiedDate ' ' myFiles(i).AccessedDate = myFiles(j).AccessedDate ' myFiles(i).CreatedDate = myFiles(j).CreatedDate ' myFiles(i).ModifiedDate = myFiles(j).ModifiedDate ' myFiles(i).Name = myFiles(j).Name ' ' myFiles(j).AccessedDate = tmpFile.AccessedDate ' myFiles(j).CreatedDate = tmpFile.CreatedDate ' myFiles(j).ModifiedDate = tmpFile.ModifiedDate ' myFiles(j).Name = tmpFile.Name End If Case 2 '访问时间 If myFiles(i).AccessedDate myFiles(j).AccessedDate Then tmpFile = myFiles(i) myFiles(i) = myFiles(j) myFiles(j) = tmpFile End If Case 3 '修改时间 If myFiles(i).ModifiedDate myFiles(j).ModifiedDate Then tmpFile = myFiles(i) myFiles(i) = myFiles(j) myFiles(j) = tmpFile End If Case 4 '名称 If UCase(myFiles(i).Name) UCase(myFiles(j).Name) Then tmpFile = myFiles(i) myFiles(i) = myFiles(j) myFiles(j) = tmpFile End If End Select Next j Next i End If GetFolderFiles = n End Function<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10002065" target="_blank">https://dangbai.cn/Article.asp?ID=10002065</a> 填写邮件内容 发信地址 填写发信人的电子邮箱 邮件签名 填写邮件签名  验证码   填写验证码，单击刷新验证码    程序执行中，请稍候... 发送协议 ·欢迎使用本站在线文章发送系统。 ·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。 ·如果收信人地址或其服务器出现错误，可能无法成功发送。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网   本站使用【啊估文章软件站】网站系统    〖网站管理员留言簿〗