Tilks
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: @script vbscript Set objFSO = CreateObject("Scripting.FileSystemObject") Function OnClick(ByRef clickData) Set allfiles = clickData.func.sourcetab.selected For Each fileobj In allfiles If fileobj.is_dir Then DeleteFiles fileobj Else objFSO.DeleteFile fileobj, True DOpus.output "Remove " & fileobj End If Next End Function Sub DeleteFiles(sPath) DOpus.output "Remove in dir " & sPath Set folder = objFSO.getfolder(sPath) Set files = folder.files For Each file In files DOpus.output "Delete " & file objFSO.DeleteFile file.path, True Next For Each fldr In folder.subfolders DeleteFiles fldr.path Next End Sub |
| Всего записей: 2688 | Зарегистр. 14-08-2005 | Отправлено: 11:04 15-05-2014 | Исправлено: Tilks, 11:06 15-05-2014 |
|