将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\")
评论