Zobrazení obsahu koše

Postup:
V modulu deklarujte:

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

První parametr je ukazatel na nadřízené okno, druhý je akce, která má být vykonána (v našem případě "open"), třetím parametrem je specifikace aplikace pro spuštění, čtvrtý parametr je příkazovým řádkem pro aplikaci a pátý je defaultním adresářem. Poslední parametr specifikuje styl okna (maximalizované, normální nebo minimalizované) a lze použít ty samé konstanty, které akceptuje funkce Shell ve VB. Aby se otevřel přímo koš, je třeba specifikovat speciální GUID koše.

Private Sub cmdShowRecycleBin_Click()
    ShellExecute 0, "Open", "explorer.exe", _
        "/root,::{645FF040-5081-101B-9F08-00AA002F954E}", 0&, vbNormalFocus
End Sub

Zpět

Autor: The Bozena