' List All Special Folders in Windows 

Set objShell = CreateObject("Shell.Application")

For i=0 to255

  Set objFolder = objShell.Namespace(i)

  OnErrorResumenext
  Set objFolderItem = objFolder.Self
  OnErrorResumeNext
  WScript.Echo i & " " &  objFolder.Title & " " & objFolderItem.Path
  Set objFolder=Nothing
  
Next
search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft