[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
ww0000

Rank: 3Rank: 3

帖子
191 
积分
222 
技术
0  
捐助
0  
注册时间
2012-12-15 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2013-9-13 12:35 | 只看该作者

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

  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

Rank: 8Rank: 8

帖子
2702 
积分
14562 
技术
177  
捐助
630  
注册时间
2008-6-16 
2楼
发表于 2013-9-13 15:49 | 只看该作者
本帖最后由 batman 于 2013-9-13 15:55 编辑 
  1. '代码暂没有考虑多级目录备份的情况

  2. Dim objFSO, MyPath, BackPath, File, MinDay

  3. MyPath = "要执行备份的目录路径"

  4. BackPath = "备份目录路径，最后的\必须加上"

  5. MinDay = DateAdd("d", -7, Now)

  6. Set objFSO = CreateObject("Scripting.FileSystemObject")

  7. '如果是在当前目录下执行备份可用以下代码获取MyPath

  8. 'MyPath = objFSO.GetFile(WScript.ScriptFullName).ParentFolder

  9. For Each File In objFSO.GetFolder(MyPath).Files

  10.   If File.DateCreated >= MinDay Then _

  11.     objFSO.CopyFile File, BackPath, True

  12. Next

  13. Set objFSO = Nothing
复制代码
1

评分人数

＊＊＊共同提高＊＊＊

TOP

ww0000

Rank: 3Rank: 3

帖子
191 
积分
222 
技术
0  
捐助
0  
注册时间
2012-12-15 
3楼
发表于 2013-9-13 16:34 | 只看该作者
回复 2# batman


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

TOP

batman

Rank: 8Rank: 8

帖子
2702 
积分
14562 
技术
177  
捐助
630  
注册时间
2008-6-16 
4楼
发表于 2013-9-13 18:44 | 只看该作者
回复 3# ww0000


    考虑多级目录就要考虑文件重名的情况。。。
＊＊＊共同提高＊＊＊

TOP

返回列表