| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1696 人关注过本帖, 1 人收藏
标题:VB 从f盘读取最近5个xls文件名到text1中,且按时间降序排
只看楼主 加入收藏
VB小白bai
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2019-8-13
结帖率:0
收藏(1)
已结贴  问题点数:20 回复次数:3 
VB 从f盘读取最近5个xls文件名到text1中,且按时间降序排
f盘有多个Excel文件,将最新建立的5个Excel文件名放到text1中,文件名(汉字无后缀)按时间降序排。求代码,谢谢

[此贴子已经被作者于2019-8-13 13:26编辑过]

搜索更多相关主题的帖子: VB 文件名 text1 时间 降序 
2019-08-13 13:20
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:21
帖 子:206
专家分:1346
注 册:2017-8-9
收藏
得分:10 
回复 楼主 VB小白bai
程序代码:
Option Explicit

Private Sub Command1_Click()
  Dim ObjFileSystem As New FileSystemObject '需引用Microsoft Scripting Runtime
  Dim ObjFolder As Folder                   '文件夹
  Dim ObjFile() As File                     '文件
  Dim FDateCreated() As Date                '每个文件创建时间
  Dim FileTotal As Integer                  'excel文件总数
  Dim i As Integer
    
  Set ObjFolder = ObjFileSystem.GetFolder("F:\") ''查找文件(F:\)
  Dim tempFile As File
  FileTotal = 0
  For Each tempFile In ObjFolder.Files            ''遍历文件夹中所有文件
      If Right(tempFile.Name, 4) = ".xls" Then    ''后缀为.xls为Excel文件
         FileTotal = FileTotal + 1
         ReDim Preserve ObjFile(1 To FileTotal)   ''数组长度加1,且保留原内容
         Set ObjFile(FileTotal) = tempFile
      End If
  Next
  
  ReDim FDateCreated(1 To FileTotal)
  For i = 1 To FileTotal
      FDateCreated(i) = ObjFile(i).DateCreated    ''获取每个文件创建时间
  Next
  
  ''将ObjFile数组中的数据排序
  Dim j As Integer
  Dim tempD As Date
  Dim tempF As File
  For i = 1 To FileTotal
      For j = 1 To FileTotal - 1
          If FDateCreated(j) < FDateCreated(j + 1) Then ''比较创建时间大小,时间大的就是最新创建的
             tempD = FDateCreated(j)
             FDateCreated(j) = FDateCreated(j + 1)
             FDateCreated(j + 1) = tempD
             Set tempF = ObjFile(j)
             Set ObjFile(j) = ObjFile(j + 1)
             Set ObjFile(j + 1) = tempF
          End If
      Next
  Next
  ''将数组中top5数据显示出来
  Text1.Text = ""
  For i = 1 To 5
      Text1.Text = Text1.Text & Left(ObjFile(i).Name, Len(ObjFile(i).Name) - 4) & vbCrLf
  Next
End Sub


图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-08-13 16:38
VB小白bai
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2019-8-13
收藏
得分:0 
回复 2楼 wufuzhang
非常感谢
2019-08-22 15:05
金142857
Rank: 2
等 级:论坛游民
帖 子:35
专家分:61
注 册:2019-8-23
收藏
得分:0 
果断收藏
2019-08-23 22:41
快速回复:VB 从f盘读取最近5个xls文件名到text1中,且按时间降序排
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048441 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved