VB6.0 :: PROGRAM MENGHAPUS FILE DI DALAM RECYLCLE BIN

PROGRAM MENGHAPUS FILE DI DALAM RECYLCLE BIN

Tambahkan Barisan Coding Di bawah Kedalam Modul dengan cara pilih Project – Add Modul.

Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
(lpFileOp As SHFILEOPSTRUCT) As Long
Public Const F0_DELETE = &H3
Public Const F0F_ALLOWUNDO = &H40
Public Const F0F_CREATEPROGRESSDLG As Long = &H0

Tuliskan Coding Dibawah ini ke dalam form :

Private Sub Form_Load()
Dim MyBool As Boolean
Mengganti 'c:\MyDir\MyFile.exe' Dengan nama Yang ingin Anda Hapus.
DelToRecycBin ("c:\MyDir\MyFile.exe")
End Sub

Public Function DelToRecycBin(FileName As String)
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
On Error GoTo DelToRecycBin_Err
With FileOperation
.wFunc = F0_DELETE
.pFrom = FileName
.fFlags = F0F_ALLOWUNDO + F0F_CREATEPROGRESSDLG
End With
lReturn = SHFileOperation(FileOperation)
Exit Function
DelToRecycBin_Err:
MsgBox Err.Description
End Function