есть диск Е
в нём папка 1
чтобы её очистить от файлов, я запускаю книгу XL
в этой книге код:
Sub del()
On Error Resume Next
Kill ("e:\1\*.*")
Application.Quit
End Sub
а в модуле ЭтаКнига такой код:
Private Sub Workbook_Open()
del
End Sub
Но как-то удалять файлы с помощью XL... :-)
Может кто напишет VB скрипт?
в нём папка 1
чтобы её очистить от файлов, я запускаю книгу XL
в этой книге код:
Sub del()
On Error Resume Next
Kill ("e:\1\*.*")
Application.Quit
End Sub
а в модуле ЭтаКнига такой код:
Private Sub Workbook_Open()
del
End Sub
Но как-то удалять файлы с помощью XL... :-)
Может кто напишет VB скрипт?