How to use vbs to automatically delete files and folders for more than 10 days
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!
