List Items in the "Common Application Data" Folder








' List Items in the "Common Application Data" folder

Const CSIDL_COMMON_APPDATA = &H23

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

Set fso = CreateObject("Scripting.Filesystemobject")

Set folder=fso.GetFolder(objFolderItem.Path)

For Each subfolder in folder.SubFolders
  WScript.Echo "[" & subfolder.Name & "]"
Next

For Each file in folder.Files
  WScript.Echo file.Name
Next




search for scripts

VbsEdit contains all these sample scripts!

Download Now!