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