Добрый день. Имеется вот такой код. Подскажите, пожалуйста, как в финале композиции сделать, чтобы вместо "delete" было "поместить в корзину"? Заранее благодарю.
Код |
---|
Dim FSO ' <- удаление файлов из каталога после сборки
Dim TheFolder, TheFiles, AFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder("C:\YandexDisk\Папка") 'Каталог, откуда удалять
Set TheFiles = TheFolder.Files
For Each AFile In TheFiles
If UCase(FSO.GetExtensionName(AFile.Path)) = "XLS" Then
AFile.Delete
End If
Next
End Sub |