ник: snipe
ну вообще-то можно и без библиотеки
убрать строку Dim fs As New FileSystemObject
вместо If fs.FileExists("c:\1.xls") = True Then fs.DeleteFile ("c:\1.xls")
написать If Dir("c:\1.xls") <> "" Then Kill ("c:\1.xls")
убрать строку Set fs = Nothing
почитать про FSO
вот например
http://www.vbnet.ru/articles/showarticle.aspx?id=35
но там не все