Hi,
I have got the solution to this problem.
The below code does the job..
Use "0" to unhide extensions and "1" to Hide them.
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.