जेफ के पॉवरशेल कमांड को प्यार करें, लेकिन पॉवरशेल के बिना विंडोज मशीनों के लिए एक वैकल्पिक vbs समाधान के लिए आप निम्नलिखित प्रयास कर सकते हैं।
के रूप में सहेजें <filename>.vbsऔर निष्पादित करें:
<filename>.vbs <target_dir> <NoDaysSinceModified> [Action]
तीसरा पैरामीटर, [Action]वैकल्पिक है। इसके बिना इससे अधिक पुरानी फाइलें <NoDaysSinceModified>सूचीबद्ध होंगी। इसके साथ यह सेट के रूप में Dयह से पुराने फ़ाइलों को हटा देगा<NoDaysSinceModified>
उदाहरण
PurgeOldFiles.vbs "c:\Log Files" 8
8 दिनों से अधिक पुराने सभी फाइलों को सूचीबद्ध करेगाc:\Log Files
PurgeOldFiles.vbs "c:\Log Files" 8 D
8 दिनों से अधिक पुरानी सभी फ़ाइलों को हटा देगाc:\Log Files
नोट: यह SQLServerCentral.com पर हैडॉन्ग जी की स्क्रिप्ट का एक संशोधित संस्करण है
Option Explicit
on error resume next
Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oFileCollection
Dim oFile
Dim iDaysOld
Dim fAction
sDirectoryPath = WScript.Arguments.Item(0)
iDaysOld = WScript.Arguments.Item(1)
fAction = WScript.Arguments.Item(2)
Set oFSO = CreateObject("Scripting.FileSystemObject")
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFileCollection = oFolder.Files
If UCase(fAction) = "D" Then
'Walk through each file in this folder collection.
'If it is older than iDaysOld, then delete it.
For each oFile in oFileCollection
If oFile.DateLastModified < (Date() - iDaysOld) Then
oFile.Delete(True)
End If
Next
else
'Displays Each file in the dir older than iDaysOld
For each oFile in oFileCollection
If oFile.DateLastModified < (Date() - iDaysOld) Then
Wscript.Echo oFile.Name & " " & oFile.DateLastModified
End If
Next
End If
'Clean up
Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
Set fAction = Nothing