VB6 Code - Memindahkan File Ke Recycle Bin

Di bawah ini merupakan procedure VB6 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 VB6 di atas:

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

READ MORE - VB6 Code - Memindahkan File Ke Recycle Bin

VB6 Code - Menghapus Seluruh File Recycle Bin

Di bawah ini merupakan fungsi VB6 untuk menghapus seluruh file yang terdapat pada recycle bin. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini

Option Explicit

Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4

Public Sub EmptyRecycleBin(frm As Form)
    Dim RetVal
    RetVal = SHEmptyRecycleBin(frm.hWnd, "", SHERB_NOPROGRESSUI + SHERB_NOCONFIRMATION)
End Sub

Contoh pengunaan procedure VB6 di atas

Private Sub Command1_Click()
    EmptyRecycleBin Me
End Sub

READ MORE - VB6 Code - Menghapus Seluruh File Recycle Bin

VB6 Code - Apakah Recycle Bin Kosong?

Di bawah ini merupakan fungsi VB6 untuk memeriksa apakah recycle bin kosong? Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya dibawah ini:

Option Explicit

Private Type SHQUERYRBINFO
    cbSize As Long
    i64SizeLo As Long
    i64SizeHi As Long
    i64NumItemsLo As Long
    i64NumItemsHi As Long
End Type

Private Declare Function SHQueryRecycleBin Lib "shell32" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, pSHQueryRBInfo As SHQUERYRBINFO) As Long

Function IsEmptyRecycle() As Boolean
    Dim RB As SHQUERYRBINFO
    RB.cbSize = Len(RB)
    Call SHQueryRecycleBin("C:\", RB)
    IsEmptyRecycle = (RB.i64NumItemsLo = 0)
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    MsgBox IsEmptyRecycle
End Sub

READ MORE - VB6 Code - Apakah Recycle Bin Kosong?

VB6 Code - Menghapus Seluruh File Recent Document

Di bawah ini merupakan procedure VB6 untuk menghapus seluruh yang terdapat pada recent document. Untuk keperluan ini digunakan satu fungsi API yakni SHAddToRecentDocs yang terdapat pada shell32.dll.

Option Explicit

Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As Any)

Sub EmptyRecentDocument()
   SHAddToRecentDocs 0, CLng(0)
End Sub

Contoh penggunaan procedure VB6 di atas:

Private Sub Command1_Click()
    EmptyRecentDocument
End Sub

READ MORE - VB6 Code - Menghapus Seluruh File Recent Document