怎么用VB实现复制一个文件夹里特定时间的文件

如何用VB实现复制一个文件夹里特定时间的文件
如何用VB实现复制一个文件夹里特定时间的文件？？急救。

[解决办法]
问题的关键是获取文件的“时间”（创建时间、最后修改时间还是最后访问时间？）。

给你个例子：

'引用 Microsoft Scripting Runtime

Dim 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

你需要添加的是，用 Dir 函数循环获取文件夹下的文件，以及将找到符合条件的文件复制。
[解决办法]
Time1 As Date, Time2 As Date,这2个是输入几号到几号的日期，
[解决办法]
然后可以用filecopy进行复制了

VB code

'┏〓〓〓〓〓〓〓〓〓 FindFileByPathBeTweenTime,start 〓〓〓〓〓〓〓〓〓┓'［简介］：'查找目录下时间介于2个时间之间的一个文件Function FindFileByPathBeTweenTime(Path1 As String, Time1 As Date, Time2 As Date, Optional FindFileName As String, Optional FindFileTime As Date) As String   '[mycode_id:2067],edittime:2011-9-30 下午 08:26:44   'Path1要求\字符结尾   Dim FileName As String   FileName = Dir(Path1)   While FileName <> ""   If FileDateTime(Path1 & FileName) >= Time1 And FileDateTime(Path1 & FileName) <= Time2 Then       FindFileTime = FileDateTime(Path1 & FileName)       FindFileName = FileName       FindFileByPathBeTweenTime = FileName       Exit Function   End If   FileName = Dir   WendEnd Function'┗〓〓〓〓〓〓〓〓〓  FindFileByPathBeTweenTime,end  〓〓〓〓〓〓〓〓〓┛