—————————————————————————————————————————————<\/p>\n
Set FSo = CreateObject(“Scripting.FileSystemObject”)
\nSet folder = FSO.getFolder (“M:\\millsys\\millgest\\magnet\\comercial”)
\nfor each file in folder.files
\nif (dateDiff(“d”, file.DateLastModified, now) >60) then
\nFile.delete
\nend if
\nnext<\/p>\n
Dim SOURCE, TARGET
\nDim fso, SourceObj<\/p>\n
SOURCE = “M:\\millsys\\millgest\\magnet\\comercial”
\nTARGET = “D:\\Publico\\MagnetComercial”<\/p>\n
Set fso = CreateObject(“Scripting.FileSystemObject”)
\nSet SourceObj = fso.GetFolder(SOURCE)<\/p>\n
RecrusiveSearch SourceObj<\/p>\n
Set SourceObj = Nothing
\nSet fso = Nothing<\/p>\n
Private Sub RecrusiveSearch(sFolder)
\nDim fld, fil
\nDim strMonth, strDay, strYear, strDate<\/p>\n
strMonth = “0” & Month(Date)
\nstrMonth = Right(strMonth, 2)
\nstrDay = “0” & Day(Date)
\nstrDay = Right(strDay, 2)
\nstrYear = Year(Date)<\/p>\n
strDate = strYear & strMonth & strDay & “_”<\/p>\n
If DateDiff(“d”, sFolder.DateLastModified, Now) > 10 Then
\nfso.CopyFolder sFolder.Path, Target & “\\” & strDate & sFolder.Name
\nfso.DeleteFolder sFolder
\nExit Sub
\nEnd If<\/p>\n
For Each fld In sFolder.SubFolders
\nRecrusiveSearch fld
\nNext<\/p>\n
For Each fil In sFolder.Files
\nIf DateDiff(“d”, fil.DateLastModified, Now) > 10 Then
\nfso.CopyFile fil.Path, Target & “\\” & strDate & fil.Name
\nfso.DeleteFile fil
\nEnd If
\nNext
\nEnd Sub<\/p>\n
—————————————————————————————————————————————
\nCr\u00e9ditos : http:\/\/www.vbforums.com\/showthread.php?578210-Recurse-through-sub-directories-Files-older-then-30-days
\nhttp:\/\/www.purainfo.com.br\/scripts\/vbsapagando-arquivos-antigos\/<\/p>\n","protected":false},"excerpt":{"rendered":"
————————————————————————————————————————————— Set FSo = CreateObject(“Scripting.FileSystemObject”) Set folder = FSO.getFolder (“M:\\millsys\\millgest\\magnet\\comercial”) for each file in folder.files if (dateDiff(“d”, file.DateLastModified, now) >60) then File.delete end if next Dim SOURCE, TARGET Dim fso,<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-314","post","type-post","status-publish","format-standard","hentry","category-outros"],"_links":{"self":[{"href":"http:\/\/binsfeld.com.br\/wp\/index.php?rest_route=\/wp\/v2\/posts\/314"}],"collection":[{"href":"http:\/\/binsfeld.com.br\/wp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/binsfeld.com.br\/wp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/binsfeld.com.br\/wp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/binsfeld.com.br\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=314"}],"version-history":[{"count":9,"href":"http:\/\/binsfeld.com.br\/wp\/index.php?rest_route=\/wp\/v2\/posts\/314\/revisions"}],"predecessor-version":[{"id":382,"href":"http:\/\/binsfeld.com.br\/wp\/index.php?rest_route=\/wp\/v2\/posts\/314\/revisions\/382"}],"wp:attachment":[{"href":"http:\/\/binsfeld.com.br\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=314"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/binsfeld.com.br\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=314"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/binsfeld.com.br\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=314"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}