DeskTop folder, All Users

[FengShui1998]

Hi,

Does anyone known how to enumerate through special folders, specifically "Desktop" and "AllUsersDesktop"?

Thanks,

fenghsui_1998

 

[steinb]

Use the WScript.Shell object to get the special folder and the File Scripting Object to enumerate the files:

'enumerate Desktop
Set objShell = WScript.CreateObject("WScript.Shell&quot

'change Desktop to AllUsersDesktop to get Users desktop
strDesktop = objShell.SpecialFolders("Desktop&quot

Set objFSO = CreateObject("Scripting.FileSystemObject&quot
Set objFolder = objFSO.GetFolder(strDesktop)

For Each objFile In objFolder.Files
Wscript.Echo objFile.Path
Next

Regards,

Stein Borge
Author of: Managing Enterprise Systems with the Windows Script Host
Over 800 pages of practical solutions oriented material, providing
detailed coverage of WSH 5.6, WMI,
ADSI, ADO, CDO, FSO and much more.
sb@nyetspam.enterprisewsh.com <- remove nyetspam when E-mailing

http://www.EnterpriseWSH.com

 

[FengShui1998]

steinb,

Thanks for the code. I was searching for a specific file using FileSystem Object but did not know about the .LNK file type on the end.

Thanks! Cheers,
fengshui_1998