Script xóa folder

Script xóa folder

Khi muốn máy tính tự động xóa các Subfolder chứa trong 1 Folder  và muốn để lại các Subfolder nào đó thì tạo file.cmd có nội dung sau và đặt nó vào Startup :

@echo off
set CurDir=C:\Public
for /f "delims=" %%f in ('dir %CurDir% /ad /b') do (
if "%%f"=="tên subfolder không xóa 1" (
@echo %%f
) else (
if "%%f"==" tên subfolder không xóa 2 " (
@echo %%f
) else (
rd "%CurDir%\%%f" /S/Q
)
)
)
exit

------------------------------------------------------------------------------------

Script sau liệt kê tất cả các ỗ đĩa có trong hệ thống máy của bạn (Kể cả ổ mạng -map)
Trong mỗi ỗ đĩa script sẽ tìm tất cả các folder and subfolder để xóa folder "abc" ( lưu thành file.vbs )

on error resume nextstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set FSO = CreateObject("Scripting.FileSystemObject")
'Liet ke tat ca cac O dia co trong he thong
Set colDrives = FSO.DrivesFor Each objDrive in colDrivesContentdir = objDrive.DriveLetter & ":\"Wscript.Echo "Drive letter: " & ContentdirDelFolder ContentdirNext


DelFolder Contentdir

'Dinh nghia Thuc tuc xoa folder va tat ca cac folder con
sub DelFolder(Contentdir)Set FSO = CreateObject("Scripting.FileSystemObject")if FSO.FolderExists(Contentdir) ThenSet Folder = FSO.GetFolder(Contentdir)For Each Subfolder in Folder.SubFoldersDelFolder(Contentdir &"\" &Subfolder.name)
if Subfolder.name = "abc" thenwscript.echo "---> Delete folder " & Contentdir &"\" &Subfolder.nameSubfolder.attributes = 0Subfolder.deleteend if
Nextend ifend sub

Script xóa folder củ, thay vào các chổ đánh dấu màu đỏ theo ý bạn và lưu thành xóa_file_theo_ngày.vbs, đặt nó vào Startup để mỗi lần máy khởi động sẽ tự động xóa

Dim fso, fldr
Dim iDaysold
Set fso = CreateObject("Scripting.FilesystemObject")

Set fldr = fso.GetFolder("D:\Backup")

iDaysOld = 3

For Each subf In fldr.SubFolders

If subf.DateLastModified < (Date() - iDaysold) then

subf.Delete True

End If

Next

For Each fsofile In fldr.Files

fsofile.Delete True

Next
Set fso = Nothing
Set fldr = Nothing