Мусорка

[Alexanbar]

Никогда не думал, что понадобится разбираться, как работает Корзина, но вот пришла в голову очередная идея, и решил попробовать её осуществить.
Нужно, собственно, следующее:

1. Функции для перечисления объектов Корзины и, по всей видимости, таблица соответствия имён удалённых объектов и то, как они в действительности называются физически в папке "Корзина".

Перечисленные объекты планируется отображать в Listview (не в Проводнике!).

2. Восстановление из Корзины конкретного объекта, в том числе, желательно и файла/папки внутри удалённой папки.

3. Ну и, наконец, из области фантастики- как использовать Корзину для объектов собственного формата.

Удалось пока найти только функцию для очистки всей Корзины, а также упоминания о каких-то страшных зверях типа NameSpaces - так их, кажется, кличут.

[gaidar]

Корзина - это папка с файлами, ничего более. Получите путь и пользуйтесь.

[GSerg]

Дык они там переименованы по-хитрому...

[Viper]

Получить то путь легко, а вот сделать все остальное...

[Kiryusha]

Пробовал сделать то же что и ты. Нифига не получилось. Самое тупое в данное ситуации, что нет APIшки, которая бы доставала дату удаления файлов в корзину, но могу подсказать, что полный путь до удалённых файлов и их оригинальные названия хранятся там же в Recycled в файле INFO2 он без разрешения, поэтому советую открывать его программно. Там ты и отыщешь что тебе надо. Мне говорили, что и дата записана там же, но она закодирована, а как её раскодировать никто не знает.

На деюсь помог! Удачи, если что получится пиши по Аське.

[Andrey Fedorov]

Дык они там переименованы по-хитрому...

Да ладно вам - что там хитрого:

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

    Dim ws As New Shell32.Shell, ff As Shell32.Folder, f As Shell32.FolderItem
   
    Set ff = ws.Namespace(ssfBITBUCKET)
    For Each f In ff.Items
        Debug.Print f.Name, f.ModifyDate
    Next f


[Alexanbar]

Это хорошо. Осталось неясным:
1. Почему не работает свойство IsFolder
2. Как узнать путь для восстановления (откуда был удалён объект)

[Andrey Fedorov]

Это хорошо. Осталось неясным:
1. Почему не работает свойство IsFolder

Может оно и не должно работать? Меняется свойство IsLink.

2. Как узнать путь для восстановления (откуда был удалён объект)

Да не смотрел...
А восстановить похоже можно и без этого - используя InvokeVerb ...

[Andrey Fedorov]

2. Как узнать путь для восстановления (откуда был удалён объект)

Вроде это:

f.Parent.ParentFolder.Self.Path

[Alexanbar]

2. Как узнать путь для восстановления (откуда был удалён объект)

Вроде это:

f.Parent.ParentFolder.Self.Path

Это возвращает путь к моему Рабочему столу для всех объектов.


Собственно говоря, восстановление - это не самое главное. Нужен именно путь, откуда объект был удалён. В первую очередь не для восстановления, а для перечисления объектов Корзины с фильтрацией. Скажем, показать то, что удалено из КОНКРЕТНОЙ ПАПКИ, а не удалено вообще отовсюду.

Ну, по крайней мере, буду копать объект Shell дальше.

[Alexanbar]

Ну, вроде узнал, как найти исходное размещение:

Public ff As Shell32.Folder

Private Sub Form_Load()
Dim ws As New Shell32.Shell, f As Shell32.FolderItem, f2 As Shell32.Folder
Dim lItem As ListItem, FSO As New FileSystemObject

Set ff = ws.NameSpace(ssfBITBUCKET)



For Each f In ff.Items

If f.IsFileSystem Then
Set lItem = ListView1.ListItems.Add

lItem.Text = f.Name

lItem.SubItems(1) = f.Type
lItem.SubItems(2) = f.Path
lItem.SubItems(3) = f.Size
lItem.SubItems(4) = ff.GetDetailsOf(f, 1)



If f.IsLink Then
lItem.SmallIcon = "lnk"

ElseIf FSO.FolderExists(f.Path) Then


lItem.SmallIcon = "CloseFold"
Else
lItem.SmallIcon = "File"

End If

End If

Next f



End Sub

[BV]

Win98 SE

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

If f.IsFileSystem Then

Условие не происходит вообще.

[Kiryusha]

АУ-У!!!

Я же говорю, что все данные записаны в файле INFO2!!!!

Он находится там же в recycled.

Набери простейший код программы

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

Open "C:\recycled\info2" for Input as #1
   do while not oef(1)
        line input #1, s
        txtOutput.Text=txtOutput.Text  & s +vbCrLf
   loop
close #1


Там ты и увидишь эти директории!!!

[alibek]

Kiryusha, ты проверь этот код на NTFS. А потом иди учить матчасть.

[Alexanbar]

АУ-У!!! :x

Я же говорю, что все данные записаны в файле INFO2!!!!

Он находится там же в recycled.

Набери простейший код программы

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

Open "C:\recycled\info2" for Input as #1
   do while not oef(1)
        line input #1, s
        txtOutput.Text=txtOutput.Text  & s +vbCrLf
   loop
close #1


Там ты и увидишь эти директории!!!

Это не самый лучший вариант. Выйдет какая - нибудь новая версия Windows с новым форматом файла INFO2, и все труды с парсингом строк пойдут на смарку. Кстати, у меня на компе стоят две оси-98 и XP. Так вот w98 портит Корзину для XP при удалении в w98 и не видит удалённых в XP объектов. Т.Е. получается, что одновременно Корзиной пользоваться в разных осях нельзя.

А событие

If f.IsFileSystem Then

действительно не происходит в w98.

А ещё там же функция GetDetails возвращает не те столбики, и кроме того, f.type возвращает почему-то дату, а f.Path возвращает имя файла, а не путь в Корзине.

Видать, придётся считывать версию, прежде чем, что-то извлекать.

[Alexanbar]

Проект с усовершенствованием мусорки постепенно продвигается, но встретилось очередное затруднение.

Public ff As Shell32.Folder
....

При использовании метода Doit

ff.Items.Item(i).Verbs.Item(j).DoIt

Можно восстановить, удалить и т.д. из корзины.

Вот только хотелось бы узнать, какое конкретно действие означает каждый из пунктов контекстного меню НЕЗАВИМО ОТ ЯЗЫКА, т.е., что пункт
"Сво&йства" меню означает Свойства и т.д.
Попробовал искать в реестре - не удалось.