Advertisement
ZeLib0ba

СКРИПТ ОЧИЩАЕТ ПАПКУ %TEMP% ПОЛЬЗОВАТЕЛЯ

Jul 22nd, 2015
287
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. rem Создаете %любое имя файла%.vbs копируете туда текст ниже и помещаете в автозагрузку.
  2. On Error Resume Next
  3. Set objFSO = CreateObject("Scripting.FileSystemObject")
  4. Set objTMP = objFSO.GetSpecialFolder(2)
  5. Set objFolder = objFSO.GetFolder(""&objTMP&"")
  6. Set colSubfolders = objFolder.SubFolders
  7. Set colSubfiles = objFolder.Files
  8. For Each objSubfolder in colSubfolders
  9. objSubfolder.Delete
  10. Next
  11. For Each objSubfile in colSubfiles
  12. objSubfile.Delete
  13. Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement