জেফের পাওয়ারশেল কমান্ডটি পছন্দ করুন, তবে উইন্ডোজ মেশিনগুলির জন্য পাওয়ার শেল ছাড়াই বিকল্প ভিবিএস সমাধানের জন্য আপনি নিম্নলিখিতটি চেষ্টা করতে পারেন।
হিসাবে সংরক্ষণ করুন <filename>.vbsএবং কার্যকর করুন:
<filename>.vbs <target_dir> <NoDaysSinceModified> [Action]
তৃতীয় প্যারামিটার, [Action]alচ্ছিক। এটি ছাড়া পুরানো ফাইলগুলি <NoDaysSinceModified>তালিকাভুক্ত করা হবে। এটি সেট হিসাবে Dএটি এর চেয়ে পুরানো ফাইলগুলি মুছবে<NoDaysSinceModified>
উদাহরণ
PurgeOldFiles.vbs "c:\Log Files" 8
8 দিনের পুরানো সমস্ত ফাইল তালিকাভুক্ত করবেc:\Log Files
PurgeOldFiles.vbs "c:\Log Files" 8 D
হবে মুছতে সব ফাইল c:\Log Filesপুরোনো তুলনায় 8 দিন বয়সী
নোট: এই Haidong জি এর স্ক্রিপ্ট একটি পরিবর্তিত সংস্করণ 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