Корзина

[Константиин]

Как открыть корзину

[tyomitch]

Двойным щелчком

Что именно надо-то?

[Шурик]

Помоему ему надо в каталог корзины влезть!!!?
Так просто надо туда лезть и всё!!!
Или все-таки раскрыть ее на рабочем столе как папку???

[A.A.Z.]

Полагаю, что путь к папке "Корзина"
Recycler или Recycled (по-моему, в зависимости от ОС) в корне диска.

[A.A.Z.]

Да что ж такое! Который раз, пока отвечаю, уже поздно!

[Шурик]

Да что ж такое! Который раз, пока отвечаю, уже поздно!

А это принципиально???

[A.A.Z.]

Иногда уже нет смысла писать одно и то же второй раз...

[Шурик]

И не говори....)))))

[Ruslan Demidow]

А вы ещё соцсоревнование по количеству ответов организуйте.

[ANDLL]

корзина, это помоему и Recycled и Recycler. Просто в корзине могут быть фалы с одним и тем же(идентичным) именем. Ну и Windows рассовывает их по разным поддиректориям. Так что корзина - папка не обыная.

[tyomitch]

нифига, кстати. В корзине все объекты лежат в одной папке, хитро переименованные.
Внутри удалённых папок файлы, естественно, не переименовываются.

[alibek]

И еще. Recycled и Recycler это разные типы корзины. Первая имеет место в Win95/98/Me, в ней в куче лежат файлы и папки вида dc* и файл-база данных.
В Recycler есть куча подкаталогов вида S-1-*, каждый из них, это SID пользователя. Такие корзины имеются в системах NT, у каждого пользователя своя корзина.

[tyomitch]

афаик в Win2000+ на дисках FAT32 создаётся именно Recycled, а не Recycler.

и ещё, не dc*, а d[имя диска]*. На диске d - dd*, ..., на диске z - dz*.

[alibek]

tyomitch, корзину очищаю сразу же, поэтому насчет имен файлов утверждать не буду
А первая поправка правильная, надо было сказать "в системах NT на дисках с файловой системой NTFS". Каюсь, посыпаю голову пеплом.

[Шурик]

В корзине ХР есть файлик INFO2, вот в нем записываеца "расшифровка" удаленных файлов в корзину и путь от куда они были удалены, т.е. полное название фала и где он находился до удаления. К сожелению формат этого файла я не знаю(
И вобще................ где афтар темы????

[Константиин]

Автор темы здесь, но меня интересует вопрос: как открыть корзину (как папку), а про то,что вы тут обсуждаете я никак не могу понять, хотя спасибо за ответы

[Tarik]

Короче, чё вы спорите, когда человеку надо это:

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

Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
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
Enum gf
    CSIDL_BITBUCKET = &HA
End Enum

Function GetFolder(gfType As gf) As String
Dim r As Long
Dim path As String
Dim IDL As ITEMIDLIST
r = SHGetSpecialFolderLocation(100, gfType, IDL)
If r = NOERROR Then
    path = Space$(512)
    r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal path)
    GetFolder = Left$(path, InStr(path, Chr$(0)) - 1)
    Exit Function
End If
GetFolder = ""
End Function

Sub Main()
ShellExecute Me.hwnd, vbNullString, getfolder(CSIDL_BITBUCKET), vbNullString, "getfolder(CSIDL_BITBUCKET)", SW_SHOWNORMAL
End sub


Код нет времени проверять, так что если что...

[tyomitch]

Код проверял-то? Я проверял на Win2000 - не работал.

[tyomitch]

tyomitch, корзину очищаю сразу же, поэтому насчет имен файлов утверждать не буду
А первая поправка правильная, надо было сказать "в системах NT на дисках с файловой системой NTFS". Каюсь, посыпаю голову пеплом.

Вот, ещё useless trivia.
В WinNT3.5 с shell update корзина есть, расположена в папке Recycled, и хранит все удалённые вещи прямо в ней, а не в подпапках. Раздел, ессно, NTFS.

[alibek]

И откуда ты 3.51 откопал?
Я такую последний раз лет 10 назад видел

[tyomitch]

И откуда ты 3.51 откопал?
Я такую последний раз лет 10 назад видел

Надо?
Могу дать, если не влом 38 метров качать

:в сторону: представляете, товарищи, а ведь всего 10 лет назад полный дистрибутив винды со всеми стандартными прогами весил 38 метров... и чего они только в эту ХР затолкали, что она на сидюк едва влазит?

[Tarik]

Извиняйте, я там ещё два типа забыл написать . Если всё ещё надо - напишу.
:в ту же сторону: Енто ещё шо! Вот дистрибутив windows 1.03 вообще на 3 дискеты влезает! Кстати, ставил его на виртуалку - рульная штука Даже paint есть

[A.A.Z.]

Вот дистрибутив windows 1.03 вообще на 3 дискеты влезает!

Где он??? Скажи!! Плиз!

[tyomitch]

Tarik, ты гонишь - там четыре 360Кб дискеты, т.е. ровнёхонько одна 1440Кб.

Скачать тут: http://home.arcor.de/jokebilder/down.html , под заголовком "Windows 1.01 auf Floppy"

[tyomitch]

Tarik, не в типах дело - я их нашёл и объявил
Просто константа CSIDL_BITBUCKET с точки зрения Винды не соответствует никакому пути, потому что хранится на всех дисках сразу.
Соответственно, SHGetPathFromIDList для неё всегда обломится. Этот код не мог работать у тебя. Шли рабочий

[Tarik]

Tarik, ты гонишь - там четыре 360Кб дискеты, т.е. ровнёхонько одна 1440Кб.

Ну, не знаю. Я качал у себя из локалки, так там всё в одну папку скинуто. Сначала пробовал на одну дискету впихнуть - не вышло (общий размер ~2 метра). Пришлось немного поизвращаться - в итоге всё распределилось по 3 дискетам.

Tarik, не в типах дело - я их нашёл и объявил
Просто константа CSIDL_BITBUCKET с точки зрения Винды не соответствует никакому пути, потому что хранится на всех дисках сразу.
Соответственно, SHGetPathFromIDList для неё всегда обломится. Этот код не мог работать у тебя. Шли рабочий

Н-да, действительно не работает... Вот теперь надо подумать

[A.A.Z.]

Tarik, ты гонишь - там четыре 360Кб дискеты, т.е. ровнёхонько одна 1440Кб.

Скачать тут: http://home.arcor.de/jokebilder/down.html , под заголовком "Windows 1.01 auf Floppy"

Ух-ха-ха-ха!!!

[tyomitch]

Tarik, ты гонишь - там четыре 360Кб дискеты, т.е. ровнёхонько одна 1440Кб.

Скачать тут: http://home.arcor.de/jokebilder/down.html , под заголовком "Windows 1.01 auf Floppy"

Ух-ха-ха-ха!!!

Ну раз это тебя так заводит - доступна бета-версия моего сайта-музея виндов (хочешь посмотреть - шли мне личку, я его запущу). За бета-тестирование, которое длилось одну ночь, зашёл только тов. D105.D-IP02.lipetsk.ru - буду рад, если он поделится впечатлениями.

[edit]Сайт закончен - см. http://bbs.vbstreets.ru/viewtopic.php?p=60679#60679[/edit]

[ASD]

Это как отправить в корзину
Want to delete a file and have it go into the recycle bin? The Kill statement permanently deletes the file. Instead, try the following:

Private Declare Function SHFileOperation Lib "shell32.dll" (ByRef lpFileOp As SHFILEOPSTRUCT) As Long

Private Const ERROR_SUCCESS = 0&
Private Const FO_COPY = &H2
Private Const FO_DELETE = &H3
Private Const FO_MOVE = &H1
Private Const FO_RENAME = &H4
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_CONFIRMMOUSE = &H2
Private Const FOF_FILESONLY = &H80
Private Const FOF_MULTIDESTFILES = &H1
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_NOCONFIRMMKDIR = &H200
Private Const FOF_RENAMEONCOLLISION = &H8
Private Const FOF_SILENT = &H4
Private Const FOF_SIMPLEPROGRESS = &H100
Private Const FOF_WANTMAPPINGHANDLE = &H20

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 String ' only used if FOF_SIMPLEPROGRESS
End Type

'Next create a function called Recycle, like so

Public Sub Recycle(ByVal FileName As String)

Dim CFileStruct As SHFILEOPSTRUCT

With CFileStruct
.hwnd = Me.hwnd
.fFlags = FOF_ALLOWUNDO
.pFrom = FileName
.wFunc = FO_DELETE
End With

If SHFileOperation(CFileStruct) <> ERROR_SUCCESS Then
'An error occurred.
End If

End Sub

To test the procedure, create a dummy text file, drop a command button onto a
Visual Basic form, and then attach the following code

Private Sub Command1_Click()
Recycle "c:\test.txt"
End Sub

When you click the button, Windows asks if you want to move the file to the Recycle Bin.

[ASD]

А это как отобразить корзину

Option Explicit

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

Private Const SW_SHOWNORMAL As Long = 1

Public Function ShowRecycleBin() As Boolean
Dim lRet As Long
'if using from a form, you can use me.hwnd instead of 0&
'for the first argument
lRet = ShellExecute(0&, "Open", "explorer.exe", _
"/root,::{645FF040-5081-101B-9F08-00AA002F954E}", 0&, _
SW_SHOWNORMAL)
ShowRecycleBin = lRet > 32
End Function