[问题求助] 以下VBS代码如何改为拷贝7天内的文件？

ww0000

Function FilesTree(sPath)     
    Set oFso = CreateObject("Scripting.FileSystemObject")   
    Set oFolder = oFso.GetFolder(sPath)   
    mpath="d:\22\"     '这里设置你要拷进去的文件夹路径      
    Set oFiles = oFolder.Files   
    For Each oFile In oFiles   
     If FormatDateTime(ofile.DateCreated,1)=FormatDateTime(Date,1) Then
     ofso.CopyFile ofile.Path,mpath
     End if
    Next      
    Set oFolder = Nothing  
       Set oFso = Nothing  
End Function  
FilesTree("d:\11\")  '这里设置原本的文件夹路径...COPY

batman

回复 3# ww0000


    考虑多级目录就要考虑文件重名的情况。。。

ww0000

回复 2# batman


   谢谢，能用，要是能考虑多级目录就更好了！

batman

'代码暂没有考虑多级目录备份的情况
Dim objFSO, MyPath, BackPath, File, MinDay
MyPath = "要执行备份的目录路径"
BackPath = "备份目录路径，最后的\必须加上"
MinDay = DateAdd("d", -7, Now)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'如果是在当前目录下执行备份可用以下代码获取MyPath
'MyPath = objFSO.GetFile(WScript.ScriptFullName).ParentFolder
For Each File In objFSO.GetFolder(MyPath).Files
  If File.DateCreated >= MinDay Then _
    objFSO.CopyFile File, BackPath, True
Next
Set objFSO = NothingCOPY