Shulou(Shulou.com)06/03 Report--

Editor to share with you how to use vbs to automatically delete files and folders for more than 10 days, I believe most people do not know much about it, so share this article for your reference, I hope you can learn a lot after reading this article, let's go to know it!

The copy code is as follows:

Option explicit

Dim fpath,fso,logfile,fwrite

Fpath=inputbox ("enter destination folder", "File processor")

Logfile= "logfile.txt"

Set fso=createobject ("scripting.filesystemobject")

Set fwrite=fso.opentextfile (logfile,8,true)

Getfilename fpath

Fwrite.close

Set fso=Nothing

MsgBox "Command execution complete!"

Function getfilename (path)

Dim file,folder,sfolder,fname,subfolder,Files

If not fso.folderexists (path) then

Set fso=nothing

Msgbox "destination folder does not exist!"

Exit function

End if

Set folder=fso.getfolder (path)

Set files=folder.files

For each file in Files

Fwrite.writeline path& "\" & file.name

If file.DateLastModified < Now-10 Then'to determine whether it is more than 10 days

Fso.DeleteFile (file)

'Wscript.Echo file

End If

Next

Set subfolder=folder.subfolders

For each sfolder in subfolder

Fwrite.writeline path& "\" & sfolder.name

If sfolder.DateCreated < Now-10 Then'to determine whether it is more than 10 days

Fso.deletefolder (sfolder)

'Wscript.Echo file

End If

Next

End function

Save the above code as a vbs file and use it.

The above is all the contents of the article "how to use vbs to automatically delete files and folders for more than 10 days". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.