"Làm cách nào để Windows 7 KHÔNG sử dụng Thùng tái chế trên ổ đĩa di động?"
Chạy đoạn script sau khi khởi động hoặc đăng nhập.
Nguồn Windows 7: Vô hiệu hóa việc tạo thư mục $ recycl.bin? :
Vâng, điều này có thể được thực hiện ... bởi vì tôi cảm thấy khó chịu vì nó không thể được thực hiện nên tôi đã viết một kịch bản để làm điều đó (xem bên dưới). Nó hoạt động với tôi nhưng nếu bạn có bất kỳ vấn đề nào, bạn có thể cần phải điều chỉnh nó một chút.
' Author: HSV Guy
' Description: Script to remove Recycle Bin folder. Run on Windows startup or login.
' Notes: 1) See http://www.sevenforums.com/tutorials/11949-elevated-program-shortcut-without-uac-prompt-create.html
' for how to run programs/scripts with elevated permissions without a UAC prompt.
' 2) Update value of RECYCLEBIN as per version of Windows (configured for Windows 7).
' Date: 1 April 2011
Dim SILENT
SILENT = TRUE
Call RunElevated
Dim filesys, drv, drvcoll, folder, RECYCLEBIN
RECYCLEBIN = ":\$Recycle.Bin\"
Set filesys = CreateObject("Scripting.FileSystemObject")
Set drvcoll = filesys.Drives
For Each drv in drvcoll
If drv.IsReady And filesys.FolderExists(drv.DriveLetter & RECYCLEBIN) Then
Set folder = filesys.GetFolder(drv.DriveLetter & RECYCLEBIN)
MyMsgBox "About to delete: " & folder
folder.Delete
Else
MyMsgBox "Skipped " & drv.DriveLetter & ". Folder doesn't exist or device not ready."
End If
Next
'Source code of RunElevated function shamelessly taken from:
' http://www.insidethe.com/blog/2009/12/how-to-launch-a-wsh-vbscript-as-administrator-in-windows-7-and-vista/
Function RunElevated
If WScript.Arguments.Named.Exists("elevated") = False Then
'Launch the script again as administrator
CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ /elevated", "", "runas", 1
WScript.Quit
Else
'Change the working directory from the system32 folder back to the script's folder.
Set oShell = CreateObject("WScript.Shell")
oShell.CurrentDirectory = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
MyMsgBox "Now running with elevated permissions" & SILENT
End If
End Function
Function MyMsgBox(Message)
If Not SILENT Then MsgBox Message
End Function