Пример удаления файла с именем указанным на входе в процедуру, расположенного в той же папке, в которой расположен файл формата .xls с VBA-кодом (ThisWorkbook.Path) или на диске C:
Sub DeleteFile(FileName As String)
'вызывается как
'Call DeleteFile('MyFile.xls')
On Error GoTo Err
Set fs = CreateObject("Scripting.FileSystemObject")
Location = ThisWorkbook.Path & Application.PathSeparator & FileName 'присвоен путь к файлу
'другой вариант - на диск C:
'Location = 'c:\' & FileName
If fs.FileExists(Location) Then 'если файл существует
fs.DeleteFile Location, 1 'удаление без уведомления
End If
Exit Sub
Err:
Err.Raise Err.Number, FileName & " deletion", Err.Description
End Sub
См. принимаемые значения переменных, включая ThisWorkbook.Path, с помощью Окна Immediate,
например:
См. также: Err.Raise