'Open_oe_store.vbs - Locate the OE Mail Store and open it in Explorer
'© Tom Koch  - 09 Jun 2002
'This code may be freely distributed/modified
'Downloaded from www.insideoe.com

'This script is a modification of "find_oe_store.vbx" by Doug Knox
'downloaded from www.dougknox.com

'TO USE THIS SCRIPT
'Double-click the "open_oe_store" script icon, or
'right-click on the icon and click Open.

MsgBox "Please be sure Outlook Express is closed before you make any changes to the files in the store folder."

Set WshShell = WScript.CreateObject("WScript.Shell")
OE_ID = "HKEY_CURRENT_USER\Identities\Last User ID"
OE_ID2 = WshShell.RegRead(OE_ID)
OE_ID3 = "HKEY_CURRENT_USER\Identities\" & OE_ID2 & "\Software\Microsoft\Outlook Express\5.0\Store Root"
StoreFolder = WshShell.RegRead(OE_ID3)

ShowFolder = "%SystemRoot%\explorer.exe " & StoreFolder 

WSHShell.Run ShowFolder

Set WshShell = Nothing