Пишу:

Sub kkk()
Kill "C:\kk.txt"
End Sub

Дома на компе прокатывает, на работе - нет. Как такое может быть?
У файла с атрибутами вроде все нормально (не "Только чтение").
Это может быть связано с правами пользователя?

НастенькаMiguel, а что конкретно он пишет. ошибку выдает или всё происходит без сообщения?
поподробней об этом.

Вот! В том то все и дело, что он ничего не пишет. Ошибку не выдает.
НО интересный момент: если запускать пошагово (F8), то в нормальном режиме (у меня дома)
он обрабатывает все три строчки (выделяет их желтым) и удаляет файл,
а в "ненормальном" - только первые две и ничего не удаляет.
Я специально открывал удаляемый файл либо пытался удалить несуществующий файл, и все равно никаких ошибок. А дома все нормально - ошибки в таких случаях вылетают.

Все. Релах.
У меня прав нет и давать не будут. Будем пытаться без прав.
Отбой.
Всем спасибо!

Вот, блин! Только собрался похвастаться на форуме, что по-другому файл удалил (правда, дома на компе .
И тут клен...

klen_ПОПРОБУЙ


В любом случае спасибо :), но свой вариант все же приведу. Он чуть отличается:
Sub n()
Dim fs As Variant
Set fs = CreateObject("Scripting.FileSystemObject")
t = fs.DeleteFile("C:\Documents and Settings\125.xls")
End Sub

Кстати, сам сисадмин предложил такой вариант: написать батник на удаление и запускать его через VB.
Я ламер, пока что... Не подскажете как это сделать (батник-то написал, а вот как его запускать...)?
Или это была злая шутка >:-] ???

Melkiades Miguel
У меня прав нет и давать не будут. Будем пытаться без прав.

Будете пытаться до бесконечности...

С бесконечностью мне соприкоснуться не удалось... :)
Вот вариант кода, который не позволяет этого сделать:

Dim fs As New FileSystemObject

f = "C:\My Documents\test.xls"
If fs.FileExists(f) Then
fs.DeleteFile (f)
End If

End Sub

Этот и "на работе" работает. Рекомендую простым юзверям с "обрезанными" правами.