Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 60
Благодарности: 0

Профиль | Отправить PM | Цитировать


Получилось что то в духе

Скрытый текст

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(strSourceFolder)
Set colFiles = objFolder.Files

For Each objFolder in colFiles
objFolder.Delete
Next

Последний раз редактировалось jordan_74, 20-11-2018 в 17:21.


Отправлено: 15:07, 20-11-2018 | #2