Memindahkan File Ke Recycle Bin

Di bawah ini merupakan procedure untuk memindahkan/menghapus file ke dalam recycle bin. Bagaimana kodenya dalam Visual Basic 6.0? bisa kita simak di bawah ini:

Option Explicit 
 
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long 
 
Private Type SHFILEOPSTRUCT 
    hwnd As Long 
    wFunc As Long 
    pFrom As String 
    pTo As String 
    fFlags As Integer 
    fAnyOperationsAborted As Long 
    hNameMappings As Long 
      lpszProgressTitle As Long 
End Type 
 
Private Const FO_DELETE = &H3 
Private Const FOF_ALLOWUNDO = &H40 
Private Const FOF_NOCONFIRMATION = &H10 
Private Const FOF_SILENT = &H4 
 
Public Sub SendFileToRecycleBin(FileName As String, Optional Confirm As Boolean = True, Optional Silent As Boolean = False) 
    Dim FileOp As SHFILEOPSTRUCT 
 
    With FileOp 
        .wFunc = FO_DELETE 
        .pFrom = FileName 
        .fFlags = FOF_ALLOWUNDO 
        If Not Confirm Then .fFlags = .fFlags + FOF_NOCONFIRMATION 
        If Silent Then .fFlags = .fFlags + FOF_SILENT 
    End With 
    SHFileOperation FileOp 
End Sub 

Contoh penggunaan procedure di atas

Private Sub Command1_Click() 
    SendFileToRecycleBin "c:\42.tmp", True, False   
End Sub