以下VBS代码如何改为拷贝7天内的文件？

ww0000

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

复制代码

batman

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

复制代码

ww0000

回复 2# batman


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

batman

回复 3# ww0000


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