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

2011-04-11 10:57:05| 分类：电脑应用 | 标签： |字号大中小订阅

将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

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\")

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。