ฉันมีไดเรกทอรีที่มีไฟล์ temp มากมาย ไฟล์ทั้งหมดที่เก่ากว่า 5 วันสามารถลบได้ยกเว้นไฟล์เดียว 'DoNotDelete.txt' ดังนั้นฉันควรเพิ่มอาร์กิวเมนต์พิเศษลงในสคริปต์ปัจจุบันของฉัน:
forfiles /p "D:\tmp" /s /d -5 /c "cmd /c del @file : date >= 5 days >NUL"
ใครสามารถให้เหตุผลนี้
คำตอบ:
ฉันไม่คิดว่า forfiles มีตัวเลือกดังกล่าว (พิมพ์ 'forfiles /?') เป็นวิธีแก้ปัญหาที่คุณสามารถ (ชั่วคราว) attrib +h donotdelete.txtตั้งหนึ่งของระบบคุณลักษณะอ่านอย่างเดียวหรือซ่อนไว้ในไฟล์นี้เช่น การทำเช่นนี้จะป้องกันไม่ให้ไฟล์ลบออก
ฉันมี VBScript นี้เพื่อล้างโฟลเดอร์นี้แล้ว ฉันจะเพิ่มคำสั่งพิเศษเพื่อข้ามไฟล์ 'DoNotDelete.txt' ได้อย่างไร คุณช่วยได้ไหม
ขอแสดงความนับถือ JvD
Dim fso, startFolder, OlderThanDate
Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = "D:\tmp" ' folder to start deleting (subfolders will also be cleaned)
OlderThanDate = DateAdd("d", -04, Date) ' 04 days (adjust as necessary)
DeleteOldFiles startFolder, OlderThanDate
Function DeleteOldFiles(folderName, BeforeDate)
Dim folder, file, fileCollection, folderCollection
Set folder = fso.GetFolder(folderName)
Set fileCollection = folder.Files
For Each file In fileCollection
If file.DateLastModified < BeforeDate And StrComp(file.name,'donotdelete.txt', vbTextCompare) <> 0 Then
fso.DeleteFile(file.Path)
End If