Удалить файл из папки Temporary Internet Files

[AlkaZeltser]

Ежели кто знает не побрезгуйте Как програмно удалить файл из ентой папки куда сейвятся просмотренные странички и разные кооки. Обычные и необычные удалялки выдают типа ошибка файловой системы (ошибка 1026). Полный адрес задаю типа c:\windows\Termopary Inte...\index.wml т.е тот что выдает explorer при просмотре этой папки.

[PATRIOT_kz]

Попробуй вначале узнать через "GetWindowsDirectory()" виндовую папку, а далее через 'ChDir()' установи её как текущую, далее введи 'ChDir("tempor~1")' и он у тебя 100% (если папка есть) перенесёт на 'Temporary Internet File', далее мочи файлы через "Kill".

Кстати можешь юзать мою разработку, которая мочит все файлы, которые можно замочить в папке.

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

Private Sub KiLLinG_FR33(fldr)
   On Error Resume Next
   Dim MyFile
   If Right$(fldr, 1) <> "\" Then fldr = fldr & "\"
   ChDir fldr
   MyFile = Dir(fldr & "*")
   Do While MyFile <> ""
       Kill MyFile
       MyFile = Dir
   Loop
End Sub


Потом просто сделай вызов на функцию, вот типа так:>)

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

Private Sub Form_Load()
   '...
   KiLLinG_FR33 windows_folder & "\tempor~1"
End Sub


Где в переменной 'windows_folder' у тя будет путь к папке windows,
если же в конце переменной путь будет "\", то просто убери его,
мона убрать типа так:>)

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

If Right$(windows_folder, 1) = "\" Then windows_folder = Left$(windows_folder, InStr(1, windows_folder, Chr(0) - 1)


Просто вставь его в любой процедуре.
Он работает на 100% если ты сделал вызов через 'GetWindowsDirectory()', допустим в эту переменную, то последний символ по умолчанию будет "0" ("\0"). Для справки смотри инфу.
---
У меня всё на 100% работает.[/code]

[hCORe]

Сначала сними атрибуты "системный" и "только чтение":

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

'установить атрибут "обычный"
SetFileAttributes "<имя файла>", &H80
'убить гада!
Kill "<имя файла>"

[tyomitch]

Люди, вы чего? Давно это Temporary Internet Files в папке Windows лежат? Они же у каждого пользователя свои, даже на Win9x!! Или это патриот опять прикалывается так?
Надо получать путь к системной папке CSIDL_INTERNET_CACHE, нужный код в топике "VB дл новичков -> Корзина".

[hCORe]

Если на Windows 9x один пользователь, то лежат в папке \Windows\Temporary Internet Files. Тем более, создателю темы явно нужно удалить файлы именно из этой папки. Так что советы вполне нормальны

[tyomitch]

Если на Windows 9x один пользователь, то лежат в папке \Windows\Temporary Internet Files. Тем более, создателю темы явно нужно удалить файлы именно из этой папки. Так что советы вполне нормальны

А тогда зачем у патриота вызов GetWindowsDirectory? Из начального поста видно, что это c:\windows
Непоследовательно.

[hCORe]

Это его личные глюки

[tyomitch]

Это его личные глюки

Так я как раз об этом речь и веду