| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 775 人关注过本帖
标题:按时间顺序加载文件
只看楼主 加入收藏
pengbo1333
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2010-8-24
结帖率:100%
收藏
已结贴  问题点数:30 回复次数:5 
按时间顺序加载文件
现有一文件夹,里面有一堆图片。
我现在的程序是自动加载这些图片到ppt中,默认是按照文件名顺序加载,如何改成按照文件创建时间加载呢?
搜索更多相关主题的帖子: 时间 文件 顺序 加载 
2010-09-17 08:29
zmh886
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:12
帖 子:238
专家分:1305
注 册:2010-6-2
收藏
得分:20 
代码?

http://www./
2010-09-17 15:35
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
先建二个数组,
一个字符串,一个以时间

流程:
1\读文件个数,可以先读一遍来计数
2\重定义数组大小
3\读文件名,并读文件生成日期
4\按文件生成日期进行排序,同时对二个数组进行排序,也就是交换时,需要同时交换二个数组的对应元素.
5\按数组序号加载图片

授人于鱼,不如授人于渔
早已停用QQ了
2010-09-17 17:13
pengbo1333
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2010-8-24
收藏
得分:0 
代码:
With pptApp.FileSearch
    .FileName = "*.JPEG"
    .LookIn = "D:\Work\VB\Picture"
    .Execute
End With
    Dim wd As Double
    Dim hi As Double
    wd = pptApp.ActivePresentation.PageSetup.SlideWidth
    hi = pptApp.ActivePresentation.PageSetup.SlideHeight
    pptApp.ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=pptApp.FileSearch.FoundFiles(1), LinkToFile:=False, SaveWithDocument:=True, Left:=40, Top:=115, Width:=wd * 0.9, Height:=hi * 0.7).Select
这样加载的第一张图片FileName:=pptApp.FileSearch.FoundFiles(1)就是按照文件名排序后的第一个图片。
楼上能否给出具体代码?
2010-09-17 19:10
zmh886
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:12
帖 子:238
专家分:1305
注 册:2010-6-2
收藏
得分:0 
.Execute msoSortByLastModified '按文件修改时间排序

没有提供按创建时间排序的方法. 另外跟着文件走的只有修改时间 访问时间和创建时间都是存在系统里的.

http://www./
2010-09-18 12:55
pengbo1333
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2010-8-24
收藏
得分:0 
3Q  zmh886,我试试
2010-09-18 16:52
快速回复:按时间顺序加载文件
数据加载中...
 
   



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

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