Recycle Bin ~ VBScript

lair360

New Member
Messages
200
Reaction score
0
Points
0
Version: 13.4
Revision: 34 Build 65

Recycle Bin ~ VBScript

Introduction:
this little Script will deletes files and folders permanently as they just bypass Recycle Bin completely...

The recycle bin saves all the files or folders, which have been removed by the user after using them. So, it gets piled up and degrade your computer performances! These files and folders can also be restored back, if required at later stage. Sooner or later, it must also be cleared otherwise space problem will added. This setting just bypasses recycle bin. Therefore, it remains clear (always), even if required very urgently later, can not be restored back!

1.] Download notepad++ from the original author or from a mirror and install the software.
-------------------------------
http://sourceforge.net/projects/notepad-plus/
http://filehippo.com/download_notepad/
-------------------------------

Disable ~ NoRecycleFiles
---Copy Source Code---


Code:
'Author: Lair360
'Version: 16.2
'Revision: 35 Build 16
'-------------------------------------------
On Error Resume Next
Dim nret1,nret2
'-------------------------------------------
Wscript.Echo "This script will 'DISABLE' NoRecycleFiles..."
'--------------------------------------------
'Don't modify any of these strings!
'Any modification to this line is very risky...
'--------------------------------------------
Set globaldrive=WScript.CreateObject("WScript.Shell")
nret1=globaldrive.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ /v NoRecycleFiles /t REG_DWORD /d 1 /f",0,TRUE)
nret2=globaldrive.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\ /v NoRecycleFiles /t REG_DWORD /d 1 /f",0,TRUE)
'-------------------------------------------
WScript.Echo "Please reboot your computer or log off..."
'VBScript Ends
---End Source Code---

Enable ~ NoRecycleFiles
---Copy Source Code---

Code:
'Author: Lair360
'Version: 16.2
'Revision: 35 Build 16
'-------------------------------------------
On Error Resume Next
Dim nret1,nret2
'-------------------------------------------
Wscript.Echo "This script will 'DISABLE' NoRecycleFiles..."
'--------------------------------------------
'Don't modify any of these strings!
'Any modification to this line is very risky...
'--------------------------------------------
Set globaldrive=WScript.CreateObject("WScript.Shell")
nret1=globaldrive.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ /v NoRecycleFiles /t REG_DWORD /d 1 /f",0,TRUE)
nret2=globaldrive.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\ /v NoRecycleFiles /t REG_DWORD /d 1 /f",0,TRUE)
'-------------------------------------------
WScript.Echo "Please reboot your computer or log off..."
'VBScript Ends

---End Source Code---
Copyright 2001-2008 Lair360
http://lair360.co.uk
 

bettadra

New Member
Messages
1
Reaction score
0
Points
0
Why not just right-click on Recycle Bin, then Properties and click on "Do not move files to the Recycle Bin. Remove files immediately when deleted." So much easier...
 

lair360

New Member
Messages
200
Reaction score
0
Points
0
Why not just right-click on Recycle Bin, then Properties and click on "Do not move files to the Recycle Bin. Remove files immediately when deleted." So much easier...

Well...first impression....look at the codes!
This script will completely erase everything when it goes into your recycle bin!
So...in my point, you don't need to worry about clicking on your bin!!

Pretty simple script that can do a big job in a small box...:lol:
 
Top