Страницы: 1
RSS
Макрос. Перемещение файлов из каталога в корзину
 
Добрый день. Имеется вот такой код. Подскажите, пожалуйста, как в финале композиции сделать, чтобы вместо "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
 
5n0vv, проверьте личку.
Страницы: 1
Наверх