VB copy文件夹下规定时间内的文件
起始时间是2013-04-15 08:20:21
结束时间是2013-04-16 08:19:00
文件存放在:d:\vb
目标存放地址:d:\vb1
要求:
将d:\vb下创建时间在2013-04-15 08:20:21与2013-04-16 08:19:00之间的文件copy到d:\vb1下。
程序编程环境:VB6.0 急救!
[解决办法]
引用ms scripting runntime 库
使用filesystemobject 对象拷贝,其文件对象可以直接访问文件的创建日期
[解决办法]
Private Sub Command1_Click()
Dim fos As New Scripting.FileSystemObject
Dim f As Scripting.File
Dim TFolder As Scripting.Folder
Set TFolder = fos.GetFolder("d:\vb")
For Each f In TFolder.Files
If f.DateCreated >= CDate("2013-04-15 08:20:21") And f.DateCreated <= CDate("2013-04-16 08:19:00") Then
f.Copy f.ParentFolder.Path & "" & f.Name, True
End If
Next
End Sub