Deletion of temp folders on c drive. Hi every one,I Prepared script for above issue,This script will delete some space on C drive. C: \Temp. C: \windows\Temp. Recycle bin. tmp. Please find the script below.'******************** CLEAR THE SPACE ON C DRIVE WHEN IT REACHES TO THRESHOLD SIZE****************'********************* DELETES CONTENTS ON C: \TEMP ***********************************On error resume Next. Dim per. Free. Dim fso, start. Folder, Older. Than. Date'Dim fso, start. Folder, Older. Than. Date. Set fso = Create. Object("Scripting. ![]() File. System. Object")If per. Free < 2. 0 Thenstart. Folder = "C: \temp" ' folder to start deleting (subfolders will also be cleaned)Older. Than. Date = Date. Add("d", - 1, Date) ' 0. Delete. Old. Files start. Folder, Older. Than. Date. Function Delete. Old. Files(folder. Name, Before. Date) Dim folder, file, file. Collection, folder. Collection, sub. Folder Set folder = fso. Get. Folder(folder. Name) Set file. Collection = folder. Files For Each file In file. Collection If file. Date. Last. Modified < Before. Date Then fso. · This is a smidge infuriating. I have 10 GB folder in my user TEMP directory which I cannot delete, and as you can imagine I would really like. Need to delete some temporary files in Windows? Those stored in the temp folder aren't needed and can be deleted. Here's how. This guide shows you how to delete temporary files and folders for the following Windows versions: Windows XP, Vista, 7, 8, 8.1 and Windows 10. Delete. Is it safe to delete AppData\Local\Temp? The same advice (for both the files and the folder) applies to the Temp folder under Windows. · How can I fix this? if i delete temp folder, it is ricreated at boot. it is as windows 7 can't write in my account folder.Thanks My System Specs. Delete. File(file. Path) End If Next Set folder. Collection = folder. Sub. Folders For Each sub. Folder In folder. Collection Delete. Old. Files sub. Folder. Path, Before. Date Next. End function'********************* DELETING THE CONTENTS ON C: \WINDOWS\TEMP\ ************************Set fso = Create. Object("Scripting. File. System. Object")If per. Free < 2. 0 Thenstart. Folder = "C: \windows\temp" ' folder to start deleting (subfolders will also be cleaned)Older. Than. Date = Date. Add("d", - 1, Date) ' 0. Delete. Old. Files start. Folder, Older. Than. Date. Function Delete. Old. Files(folder. Name, Before. Date) Dim folder, file, file. Collection, folder. Collection, sub. Folder Set folder = fso. Get. Folder(folder. Name) Set file. Collection = folder. Files For Each file In file. Collection If file. Date. Last. Modified < Before. Date Then fso. Delete. File(file. Path) End If Next Set folder. Collection = folder. Sub. Folders For Each sub. Folder In folder. Collection Delete. Old. Files sub. Folder. Path, Before. Date Next. End function'***********************DELETES THE . TMP. CHK. DMP EXTENSION FILES ************************DIM str. Extensions. To. Delete,str. Folder. DIM obj. FSO' Folder to delete files from (files will also be deleted from subfolders)str. Folder = "C: \"' A comma separated list of file extensions' Files with extensions provided in the list below will be deletedstr. Extensions. To. Delete = "tmp,chk,dmp"' *****************************************************************************************set obj. FSO = createobject("Scripting. File. System. Object")Recursive. Delete. By. Extension str. Folder,str. Extensions. To. Delete'wscript. Finished"sub Recursive. Delete. By. Extension(byval str. Directory,str. Extensions. To. Delete)DIM obj. Folder, obj. Sub. Folder, obj. File. DIM str. Ext set obj. Folder = obj. FSO. Get. Folder(str. Directory)for each obj. File in obj. Folder. Filesfor each str. Ext in SPLIT(UCASE(str. Extensions. To. Delete),",")if RIGHT(UCASE(obj. File. Path),LEN(str. Ext)+1) = "." & str. Ext then'wscript. Deleting: " & obj. File. Pathobj. File. Deleteexit forend ifnextnext for each obj. Sub. Folder in obj. Folder. Sub. Folders. Recursive. Delete. By. Extension obj. Sub. Folder. Path,str. Extensions. To. Deletenext. End sub'********************* DELETES THE LOG FILES ON C: \WINDOWS\SYSTEM3. LOGFILES\...**************. Dim o. FS, a. Fdr. List, s. Fdr, i. Keep. Days, s. File. Ext, d. To. Day, d. Cut. Off, o. Fdr, o. File Set o. FS = WScript. Create. Object("Scripting. File. System. Object") a. Fdr. List = Array("C: \WINDOWS\system. Log. Files\W3. SVC1") i. Keep. Days = 9. 0 s. File. Ext="log" d. To. Day = Date() d. Cut. Off = CDate(d. To. Day - i. Keep. Days) For Each s. Fdr In a. Fdr. List Set o. Fdr = o. FS. Get. Folder(s. Fdr) For Each o. File in o. Fdr. Files Err. Clear On Error Resume Next If (UCase(o. FS. Get. Extension. Name(o. File. Name)) = UCase(s. File. Ext) And Is. Older(o. File, d. Cut. Off)) Then o. File. Delete True. On Error goto 0 Next Next Set o. FS = Nothing WScript. Quit '- -- -- -- -- -- -- -- -- -- -- Function Is. Older(o. File, d. Cut. Off) If o. File. Date. Created < d. Cut. Off Then Is. Older = True Else Is. Older = False. 'If o. File. Date. Last. Modified < d. Cut. Off Then Is. Older = True Else Is. Older = False. End Function. End if. End if'***************************** EMPTY THE RECYCLE BIN ***********************Const RECYCLE_BIN = & Ha& Const FILE_SIZE = 3'#- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -'# Declare Variables'#- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -Dim obj. Shell, obj. Folder, col. Items. Set obj. Shell = Create. Object("Shell. Application")Set obj. Folder = obj. Shell. Namespace(RECYCLE_BIN)Set obj. FSO = Create. Object("Scripting. File. System. Object")Set col. Items = obj. Folder. Items'#- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -'# Delete everything in the Recycle Bin'#- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -For Each obj. Item in col. Items. If (obj. Item. Type = "File folder") Thenobj. FSO. Delete. Folder(obj. Item. Path) Elseobj. FSO. Delete. File(obj. Item. Path)End If. Nextrajendra prasad.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
October 2017
Categories |