Sağ tuşa direkt sil eklemek
Gönderilme zamanı: 12 Mar 2014, 20:07
1. C dizininde sil diye bir klasör oluşturun (c:/sil)
2.Üstteki klasörün içerisinde sil.vbs diye bir dosya oluşturup aşağıdaki kodu içerisine yapıştırın
Eğer silmeden önce onay sorsun diyorsanız
3. sil_kur.reg isminde bir dosya daha oluşturun ve içerisine aşağıdakini yapıştırın ve kaydedin
sonrada sil_kur.reg dosyasını çalıştırıp onaylayın eğer sağ tuşta ikonu olsun istiyorsanız
2.Üstteki klasörün içerisinde sil.vbs diye bir dosya oluşturup aşağıdaki kodu içerisine yapıştırın
Kod: Tümünü seç
on error resume next
sFileSpec = Wscript.Arguments.Item(0)
DeleteAFolder(sFileSpec)
DeleteAFile(sFileSpec)
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject( "Scripting.FileSystemObject" )
If (fso.FileExists(fileSpec)) Then fso.DeleteFile(filespec)
End Sub
Sub DeleteAFolder(filespec)
Dim fso
Set fso = CreateObject( "Scripting.FileSystemObject" )
If (fso.FolderExists(filespec)) Then fso.DeleteFolder(filespec)
End SubKod: Tümünü seç
verify = _
Msgbox("Dosyalar direkt silinecek. Emin misiniz?", _
vbYesNo, "Direkt Sil")
If verify = vbNo Then
Msgbox "İptal edildi"
Else
on error resume next
sFileSpec = Wscript.Arguments.Item(0)
DeleteAFolder(sFileSpec)
DeleteAFile(sFileSpec)
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject( "Scripting.FileSystemObject" )
If (fso.FileExists(fileSpec)) Then fso.DeleteFile(filespec)
End Sub
Sub DeleteAFolder(filespec)
Dim fso
Set fso = CreateObject( "Scripting.FileSystemObject" )
If (fso.FolderExists(filespec)) Then fso.DeleteFolder(filespec)
End Sub
End IfKod: Tümünü seç
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\*\Shell\Erase\Command]
@="wscript C:\\sil\\sil.vbs \"%1\" "
[HKEY_CLASSES_ROOT\Directory\shell\Erase\Command]
@="wscript C:\\sil\\sil.vbs \"%1\" "Kod: Tümünü seç
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\*\Shell\Erase]
"Icon"="imageres.dll,-89"
"position"="Bottom"
[HKEY_CLASSES_ROOT\*\Shell\Erase\Command]
@="wscript C:\\sil\\sil.vbs \"%1\" "
[HKEY_CLASSES_ROOT\Directory\shell\Erase\Command]
@="wscript C:\\sil\\sil.vbs \"%1\" "