vbscript - I would like to delete 7 days older, files. folders and empty folders -

-

After

I want to delete 7 days old, delete files and empty folders. I have used the script below from the link, but since the souce is pointing directly to the letter drive, some files and folders are not being removed. However, if we change the source folder then c: \ temp \ lab everything works fine. 

  const active = true const sSource = "E:" Const MaxAge = 7 'day const Recursive = True checked = 0 deleted = 0 set OFSO = CreateObject ("Scripting.FileSystemObject") if Active "action" = "delete" "other verb =" old file: "" "checkfolder osso. Gatefolder (ssro) WScript.echo if activated then action =" file has been deleted "other action =" file (s) Removed "WScript.Echo checked" & checked file (s), & amp; deleted & verb sub checkfolder (offender) each off Checked in oFldr.Files = Checked + 1 if Detoff ("D", Opile. DataList, now ())> MaxAge then deleted deleted + 1 WScript.Echo Action & amp; Opfile. Path & amp; "" If enabled, then open the file. Stop repeating if it is not recursive next, then exit for each oSubfolder CheckFolder (oSubfolder) Next End in oFldr.Subfolders. Sub    
 
  itemprop = "text"> 
 Well, about what it is:  
  const active = True Constance sSource = "e: \ start_folder" or "E: \" but not "E:" Const MaxAge = 7 'Dest Recursive = true Dim dtOld, checked, deleted, verb DTOld = now - MaxAge checked If = 0 is deleted = 0 is activated then action = "deleting" "other verb =" old file: "" "valid sSource cleaning sSource WScript.Echo then active then verb = action =" file (files) Will be deleted "WScript.Echo checked and deleted" file (s) "; "Checked the file (s)," & amp; Deleted & amp; CreateObject ("Scripting.FileSystemObject") with the verb sub object (sfolder) if not. Foller accelerates (sFolder) then error Rhiz 76 'path is not found if ghetfolder (sFolder). ITSRootFolder then if .GetDrive (.GetDriveName (sFolder) = _ CreateObject ("WScript.Shell"). Environment (_ "Process") ("Home Drive") error then .75 'path / file usage ends the end if End-end sub-sub cleanliness (sFolder) with the object created by end-of-the-box ("scripting.fileSystemObject"). GetFolder (SFolder) 'if recursive before recursive then for each obj. Subfolders cleanup obj next end if' next every obj The oldest files for Delete files. Obj.DateCreated & lt; deleted if deleted deleted + 1 WScript.Echo verb & Obj.Path & amp; "" "if active then obj.Delete (True) End if checked next = Check the +. Files.Count 'and then delete the old or empty folders for each obj.get obj.DateCreated in subfolders & lt; DtOld or 0 = obj.Size then if you wish, count in a variable ... if Active then obj.Delete (True) End If End End with End Sub   
  PS  Requires a  warning  about a weak moment Is f São A snapshot  folder using  collection, which means reaching FSO and does not exist in that folder during the visit. In other words, there is a separate process for removing folders.

Comments

Post a Comment

Popular posts from this blog

excel vba - How to delete Solver(SOLVER.XLAM) code -

-
After opening several examples of macro / code written, I suddenly get stuck with a code that seems safe. Solver (SOLVER.XLAM) is doing this notation and I would like to remove it from my system. I do not think this is a relativant code. Can anyone tell me what should I do? I have already installed something to remove the password but Solver is still asking for password and I can not get rid of it! itemprop = "text"> Solver Excel is add-in If you want to delete it, then Excel Application & gt; Options & gt; Add-ins & gt; Search for 'Go to' button and gt; Uncheck the solver on the list like press something (I can not give you the exact path because I have the Polish version of Excel). Trying to open Solver's VBA code is not good because it There is allegedly copyright. Besides, I do not think Solver creates any disadvantages while working with Excel or VBA.
Read more

github - Teamcity & Git - PR merge builds - anyway to get HEAD commit hash? -

-
I have a team city build project with Gitbab VCS route, I have been triggered for both / head on PR and / Merge the referee. The annoying thing is that you can not do anything useful with the merged hash - it is not present in Gitobb. I want to exclude newsgate packages with head in gutub comet situations in the version number along with Hewash (Newsaging 7) for the music build, but against head hash. However, I can not see a way to get the head hashes while constructing that merge. I just want to head because it's useless - we only care about merge. (PR - Pull Request) This command works reliably while running One on / merge is git log --no-merge -1 ---- = '% h'
Read more

ios - Replace text in UITextView run slowly -

-
I have a UITextView and I change a word like the code at the end of UITextView.text: - (void) Replace TexttechWitWord: (NSString *) word {NSString * currentTextViewText = self.textView.text; CurrentTextViewText = [currentTextViewText stringByReplacingCharactersInRange: NSMakeRange ([self.textView.text length] - [word length], [word length]) withString: word; Self.textView.text = currentTextViewText; } Replacement work is fine, but it runs very slowly and very slowly when the textView now lengthens Is there any better way? I try the replacement range: with text for a week but still stuck. Not to know how to use it to replace it in your case. Please guide! Thanks in advance! This is an important job. As you are using an irreversible string and you are creating a very long string and before Assigned to NSString created from. NSString will be used instead of NSMutableString . - (UITableViewCell *) TableView: (UITableView *) Table View CellForOutPath: (NSIndex...
Read more