Skip to content

Instantly share code, notes, and snippets.

@xslendix

xslendix/destroy desktops.vbs

Created December 15, 2018 09:00
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save xslendix/80a21e34233aeca500d542a83688e924 to your computer and use it in GitHub Desktop.
Save xslendix/80a21e34233aeca500d542a83688e924 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
destroy desktops.vbs
Dim arr1(200)
Set oShell = WScript.CreateObject ("WScript.Shell")
For i = 0 to 110 Step 1
arr1(i) = CStr(i)
oShell.run "cmd.exe /C Z: & cd Z:/info/Desktop & mkdir " & CStr(i)
Next
Dim objShell, strProgram
Set objShell = CreateObject("Wscript.Shell")
strProgram = "%comspec% /c pause"
objShell.Run strProgram,1,True
For i = 0 to ubound(arr1)
oShell.run "cmd.exe /c Z: & cd Z:/info/Desktop & rmdir " & CStr(i)
Next
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment