' List Items in the "History" folder

Const CSIDL_HISTORY = &H22

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(CSIDL_HISTORY)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path

Set fso = CreateObject("Scripting.Filesystemobject")

Set folder=fso.GetFolder(objFolderItem.Path)

ForEach subfolderin folder.SubFolders
  WScript.Echo"[" & subfolder.Name & "]"
Next

ForEach filein folder.Files
  WScript.Echo file.Name
Next

search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft