Keskustelu: Koodit: VB.NET: Roskis

Public Class cRoskis
    '*******************************************
    ' Roskis luokka joka käsittelee RecycleBin:iä
    ' Käyttöesimerkki:
    ' Dim C_roskis As New cRoskis("C:\")
    ' C_roskis.PistäRoskikseen("C:\koe.txt")
    ' C_roskis.Tyhjää()
    ' TNB, 2005
    '*******************************************
    Private Structure SHFILEOPSTRUCT
        Dim hwnd As Integer
        Dim wFunc As Integer
        Dim pFrom As String
        Dim pTo As String
        Dim fFlags As Short
        Dim fAnyOperationsAborted As Boolean
        Dim hNameMappings As Integer
        Dim lpszProgressTitle As String
    End Structure
    '
    'Tyhjäys API
    Private Declare Function EmptyRecycleBin Lib "shell32" Alias _
    "SHEmptyRecycleBinA" ( _
    Optional ByVal hWnd As Long = 0, _
    Optional ByVal pszRootPath As String = vbNullString, _
    Optional ByVal dwFlags As Long = 0) As Long
    '
    'Poisto roskikseen API
    Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer

    Private _strRoot As String 'Esim "C:\"

    Sub PistäRoskikseen(ByVal sFile As String)
        ' Tiedosto RecycleBin:iin
        Dim FileOperation As SHFILEOPSTRUCT
        Dim lR As Integer
        Dim sFileName As String
        With FileOperation
            .wFunc = 3
            .pFrom = sFile
            .fFlags = 80
        End With
        If File.Exists(sFile) Then
            lR = SHFileOperation(FileOperation)
        End If
    End Sub

    Public Sub Tyhjää()
        EmptyRecycleBin(0, _strRoot)
    End Sub
    Sub New(ByVal strRoot As String)
        _strRoot = strRoot
    End Sub
End Class