Sağ tuşa direkt sil eklemek

[kefir]

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

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 Sub

Eğer silmeden önce onay sorsun diyorsanız

Kod: 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 If

3. sil_kur.reg isminde bir dosya daha oluşturun ve içerisine aşağıdakini yapıştırın ve kaydedin

Kod: 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\" "

sonrada sil_kur.reg dosyasını çalıştırıp onaylayın eğer sağ tuşta ikonu olsun istiyorsanız

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\" "

[velociraptor]

Sağolasın

[accept]

teşekkürler.