| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 325 人关注过本帖
标题:关于FSO功能
取消只看楼主 加入收藏
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
结帖率:97.66%
收藏
已结贴  问题点数:20 回复次数:1 
关于FSO功能
VB6使用FSO搜出有相似特征文件时
若是文件档名后带有数字时间纪录
是否文件档名列表会依序由小自大排列?

Set varFSO = CreateObject("Scripting.FileSystemObject")
Set varFolder = varFSO.GetFolder(FilePath)
               
For Each varFile In varFolder.Files
   TempString = Trim(Mid(varFile, InStrRev(varFile, "\") + 1))
   If ((Right$(UCase$(TempString), 4) = UCase$(".aaa") And InStr(TempString, tmpCode) <> 0)) Then
         ReDim Preserve FileNameArray(i)
         FileNameArray(i) = varFile
         i = i + 1
   End If
Next
2013-07-09 17:20
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
我不是指创建时间的排序~我是指档名的排序~
....
AAA_200307091208.aaa
AAA_200307091310.aaa
AAA_200307091650.aaa
AAA_200307091800.aaa
....
虽然试过是好像会~但是不确定~
希望能有相关说明文件记载来辅助这结论~

不要選我當版主
2013-07-09 23:14
快速回复:关于FSO功能
数据加载中...
 
   



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

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