"অপসারণযোগ্য ড্রাইভে রিসাইক্লিং বিন ব্যবহার না করার জন্য আমি কীভাবে উইন্ডোজ 7 পাব?"
শুরুতে বা লগইনে নিম্নলিখিত স্ক্রিপ্টটি চালান।
উত্স উইন্ডোজ 7: cycle রিসাইকেল.বিন ফোল্ডারটি তৈরি করা অক্ষম করবেন? :
হ্যাঁ এটি করা যায় ... কারণ আমি বিরক্ত হয়েছি যে এটি করা যায় না তাই এটি করার জন্য আমি একটি স্ক্রিপ্ট লিখেছিলাম (নীচে দেখুন)। এটি আমার পক্ষে কাজ করে তবে আপনার যদি কোনও সমস্যা থাকে তবে আপনার এটির জন্য কিছুটা টুইট করতে হবে।
' 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