Desktop VBS Prank Script for a Laugh
Channel: zatoqli
Date: 2023-02-06

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")

For i = 1 to 150
    objFSO.CreateFolder strDesktop & "\Folder" & i
Next