VB copy文件夹下规定时间内的文件

Question

起始时间是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 急救！

Answer 1

引用ms scripting runntime 库
使用filesystemobject 对象拷贝，其文件对象可以直接访问文件的创建日期

Answer 2

'引用 Microsoft Scripting RuntimeDim objFSO As New FileSystemObject
Dim objFileDetails As File
' Identify the file for which you want to display properties
Set objFileDetails = objFSO.GetFile("C:\config.sys")Debug.Print "File Type:" & objFileDetails.Type
Debug.Print "Date Created:" & objFileDetails.DateCreated
Debug.Print "Date Modified:" & objFileDetails.DateLastModified
Debug.Print "Date Accessed:" & objFileDetails.DateLastAccessed

Answer 3

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

Answer 4

f.Copy f.ParentFolder.Path & "\" & f.Name, True
这个目标错了f.Copy "E:\Vb1\" & f.Name, True

Answer 5

非常感谢 Worldy的帮忙，Thank you!