How to Automate Folder Options?

[Amit Singh Chauhan]

Hi,

Can anyone help me to solve he following problem?

-> I have developed many scripts and some of them requires to hide the extensions of files (Which is done via Tools->Folder Options->View) and in some it should not be hidden.

Every time to run these scripts I have to manually set these options.

Can this be automated without using VBscript?

I do not wan't to use UI approach i.e, adding objects in 'OR'; since this is the pre requsite of my script it should be done without opening any window.

[Amit Singh Chauhan]

Hi,
I have got the solution to this problem.
The below code does the job..

Code:

Dim objShell, RegLocate
Set objShell = CreateObject("WScript.Shell")
RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt"
objShell.RegWrite RegLocate,"0","REG_DWORD"
Set objShell = nothing

Use "0" to unhide extensions and "1" to Hide them.