Как очистить корзину?

[i_mark]

Подскажите. Наверняка функция какая-нибудь есть.

[Cyrax]

Вездесущий API-Guide. пример из него

Код: Выделить всё

Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4
Private Type ULARGE_INTEGER
  LowPart As Long
  HighPart As Long
End Type
Private Type SHQUERYRBINFO
  cbSize As Long
  i64Size As ULARGE_INTEGER
  i64NumItems As ULARGE_INTEGER
End Type
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
Private Declare Function SHQueryRecycleBin Lib "shell32.dll" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, pSHQueryRBInfo As SHQUERYRBINFO) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim RBinInfo As SHQUERYRBINFO, Msg As VbMsgBoxResult
    RBinInfo.cbSize = Len(RBinInfo)
    SHQueryRecycleBin vbNullString, RBinInfo
    If (RBinInfo.i64Size.LowPart And &H80000000) = &H80000000 Or RBinInfo.i64Size.HighPart > 0 Then
        Msg = MsgBox("Your Recycle Bin consumes over 2 gigabytes right now!" + vbCrLf + "Do you want to empty it?", vbYesNo + vbQuestion)
    Else
        Msg = MsgBox("Your Recycle Bin consumes" + Str$(RBinInfo.i64Size.LowPart) + " bytes right now." + vbCrLf + "Do you want to empty it?", vbYesNo + vbQuestion)
    End If
    If Msg = vbYes Then
        SHEmptyRecycleBin Me.hwnd, vbNullString, 0
        SHUpdateRecycleBinIcon
    End If
End Sub


[i_mark]

Спасибо! Все ясно.

[i_mark]

Оказалось не все ясно. Как избавиться от вылезающего вопроса, хочу ли действительно удалить оттуда все.

[RayShade]

Читаем описание функции в MSDN:



dwFlags

One or more of the following values: SHERB_NOCONFIRMATION No dialog box confirming the deletion of the objects will be displayed.

SHERB_NOPROGRESSUI No dialog box indicating the progress will be displayed.

SHERB_NOSOUND No sound will be played when the operation is complete.

[i_mark]

Ага, сам, кажется, нашел.

[i_mark]

Вот, RayShade, успел.

[winnydows]

А как очистить корзину в VB.NET (2005) ? Me.hwnd выдаёт "Is Not A Member Of ..."

[GSerg]

Судя по второму предложению, прежде чем начать писать на VB .NET, автору вопроса следует почитать ту массу статей (на русском, между прочим, языке), в которой описываются различия vb .net и vb6. Потом, как следующий шаг, научиться пользоваться клавишей F2.

[winnydows]

Как и бошьшинство топиков на этом форуме ничего кроме посылания. Видимо просто изза того что не знают как решить проблему. Если не знаете не пишите. Я задал конкретный вопрос и хочу услышать конкретный ответ. Если кто то уже знает как почему бы просто не сказать , а не выёжваться в миллионный раз упоминая MSDN.
По поводу предыдущего вопроса: каким интерестно местом Object Browser поможет для изучения Native DLL ?
По теме (корзина): Object Browser слегка помог. Может не совсем правильно конечно или совсем не правильно, но корзина стала очищаться. Только дебагер ругается:
A call to PInvoke function 'OSManager!OSManager.Clean::SHEmptyRecycleBin' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.

Hwnd получаю таким вот кривым способ:

Код: Выделить всё

Public Class Clean
    Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long

    Public ReadOnly Property Hwnd() As System.IntPtr
        Get
        End Get
        'Set(ByVal value As System.IntPtr)
        'End Set
    End Property

    Sub EmptyRecycleBin()
        SHEmptyRecycleBin(Me.Hwnd, vbNullString, 0)
    End Sub
End Class

Вопрос , как это сделать правильно чтобы дебагер заткнулся ?

[FaKk2]

winnydows
А ты заплатил за конкретный ответ? Почему мы должны тратить время для нахождения за тебя конкретного ответа на твой конкретный вопрос. Тебе сказали где искать уже.

[alibek]

winnydows, почитай.
Конкретно для тебя процитирую один абзац.

Часто тот, кто посылает один из подобных ответов, имеет под рукой руководство или web-страницу с необходимой вам информацией, и смотрит на нее, когда набирает ответ. Эти ответы означают, что, по его мнению, во-первых, необходимую вам информацию легко найти и, во-вторых, вы большему научитесь при поиске информации, чем если вам ее преподнесут под нос на тарелочке.
Вас это не должно возмущать; по хакерским стандартам, он оказал вам достаточное уважение уже тем, что не проигнорировал вопрос. Вы должны поблагодарить ответившего за его отеческую доброту.

[winnydows]

@FAKK2
Ты что то напутал. Это ФОРУМ , а не суппорт.Или это форум за деньги ? И трятят время тут кому это интерестно, но тут видимо только любители пофлудить.

@alibek
Я уже не один день копаю эту тему и в MSDN и вообще в инете. И написал сюда как в последнюю инстацию. Что нельзя просто сказать что не знаете ? Чего всякую херню то писать ?

@all
Название ветки ни о чём не говорит "Visual Basic для новичков" ?
Почему по вашему мнению новичёк должен всё знать ещё не успев научиться ? Имеется ввиду Visual Basic.

[FaKk2]

winnydows
Именно этим форум и отличается от суппорта. В суппорте тебе платят за то что бы ты отвечал на все, даже самые тупые вопросы. А форум это чисто добровольное занятие и право же по десять раз повторять одно и то же надоедает.

[GSerg]

winnydows
Видимо, подход к самообразованию у нас отличается.

Я бы, если бы перед мной встала проблема поиска hwnd в .net, почитал бы те статьи, на которые я тебе указал. И там я бы нашёл, как теперь называется hwnd в .net. Дя тех, кто не умеет/не хочет/не любит/не знает как искать, могу дать полную ссылку: http://msdn.microsoft.com/library/rus/v ... sicnet.asp
Как нетрудно убедиться, полная ссылка принадлежит той части дерева, на которое была дана ссылка изначально.
Хочу подчеркнуть, что её нахождение не зависит от знаний VB. Только здравый смысл и умение пользоваться кнопкой Найти.
Да, на этом форуме тебя скорее будут заставлять думать, чем дадут ответ. Если это неприемлемо, других форумов тоже немало.

Но даже если бы я не нашёл статью, я бы взял код на VB, вызывал бы студийный Upgrade Wizard, проапгрейдил бы код и увидел бы всё, что требуется.

А F2 - как раз для изучения свойств класса Form, а не native dll.


А замена long на integer - это вообще настолько базовый момент, что стоит забыть о своём "задал конкретный вопрос и хочу получить конкретный ответ", потому что конкретный ответ, при наличии таких пробелов, не поможет. Начни таки читать приведённую документацию с начала.

[Amed]

Я бы еще дал замечание за брань. Вырежь, пока еще не поздно.