Релиб / Программирование / VBA / Как убить файл? / Latest Posts

RE: Как убить файл?

Well78 — Wed, 16 May 2007 10:41:43 GMT

А вот для документов Word подобное можно делать?

RE: Как убить файл?

Johny Walker — Wed, 15 Nov 2006 14:30:23 GMT

[b]ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly[/b]
'Если в обычном режиме "чтение/запись", операционная система не даст убить открытый файл. Данной командой мы его закрываем и открываем только для чтения, с ним можно что хочешь делать
[b]SetAttr iFullName$, vbNormal[/b]
'Это на тот случай, если файл изначально имел атрибут "Только для чтения" - vbReadOnly. Обычно такого не бывает, но для подстраховки. Кстати, в любом случае одна из строк - первая или вторая, окажутся ненужными...
[b]Kill iFullName$[/b]
'Собственно удаление беззащитного файла
[b]ActiveWorkbook.Close saveChanges:=False[/b]
'Закрыть файл без сохранения (ибо в режиме xlReadOnly без saveChanges:=False он будет спрашивать, куда сохранить изменения).

RE: Как убить файл?

Well78 — Wed, 15 Nov 2006 11:04:48 GMT

Годится! Код работает. А вот какая логика в нем - это другой вопрос. А в-общем то какая разница. Хотя если сможете объяснить принцип - буду очень рад.

RE: Как убить файл?

Pavel55 — Fri, 10 Nov 2006 14:06:28 GMT

'Макрос, позволяющий удалить (убить) файл, в котором сам и находится (самоубийство)
'Source: http://www.progz.ru/forum/index.php?s=5a0c711ab6e36c1995ad8f8cdc21caf1&showtopic=28144

[code]

Private Sub Kill_ActiveWorkbook()
iFullName$ = ActiveWorkbook.FullName
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
SetAttr iFullName$, vbNormal: Kill iFullName$
ActiveWorkbook.Close saveChanges:=False
End Sub
[/code]

RE: Как убить файл?

babken76 — Fri, 10 Nov 2006 13:32:18 GMT

Убить сам себя? Хм...
Единственное что могу посоветовать, создать из макроса скрипт vbs, который по таймеру убьет твой файл, запустить его, закрыть себя. Тоже изврат, но по другому не знаю.

С уважением,

Как убить файл?

Well78 — Fri, 10 Nov 2006 12:38:19 GMT

Возникла следущая задача. Макрос в открытом Excel файле должен удалить этот же файл из файловой системы. Естественно без извращений это не получается сделать, поскольку он используется сервисом. Но грохнуть его все равно надо. Не подскажте как?