Имя пользователя:
Пароль:
 

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

Новый участник


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

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


Цитата Iska:
Код:
Option Explicit
Dim strRootFolder
strRootFolder = WScript.CreateObject("Shell.Application").NameSpace("shell:cache").self.Path
With WScript.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
.DeleteFile objFSO.BuildPath(strRootFolder, "*.*"), True
.DeleteFolder objFSO.BuildPath(strRootFolder, "*.*"), True
End With
WScript.Quit 0 »
Либо я что-то не то делаю, либо не работает

Отправлено: 15:53, 24-02-2014 | #5