注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

凉茶

 
 
 

日志

 
 

归集指定目录下指定类型文件  

2011-04-11 10:57:05|  分类: 电脑应用 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

将C:\Documents and Settings\All Users\temp\目录下的PDF文件归集到E:\FAX\

Function FilesTree(sPath)
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set oFolder = oFso.GetFolder(sPath)
  Set oSubFolders = oFolder.SubFolders
  Set oFiles = oFolder.Files
  Dpath ="E:\FAX\"

  For Each oFile In oFiles
    IF Right(oFile.Name,4) = ".pdf" Then
       Set file=oFso.getfile(oFile.Path)
       renname =year(DateValue(file.datelastmodified))&"."&month(DateValue(file.datelastmodified))&"."& _
              day(DateValue(file.datelastmodified))&"-"&hour(TimeValue(file.datelastmodified))&"."& _
              minute(TimeValue(file.datelastmodified))&"."&second(TimeValue(file.datelastmodified))
             'WScript.Echo mdate
       oFso.CopyFile file,Dpath,true
       Set file2=oFso.GetFile(Dpath & oFile.Name)
       file2.Name=renname & Right(file2.Name,4)
       oFso.deletefile file
    End IF

  Next

  For Each oSubFolder In oSubFolders
    FilesTree(oSubFolder.Path)
  Next
      
  Set oFolder = Nothing
  Set oSubFolders = Nothing
  Set oFso = Nothing
End Function
 
FilesTree("C:\Documents and Settings\All Users\temp\")

  评论这张
 
阅读(350)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017