'find_oe_store.vbs - Locate the OE Mail Store and open it in Explorer
'© Doug Knox - 04/07/02
'Downloaded from www.dougknox.com

Set WshShell = WScript.CreateObject("WScript.Shell")
OE_ID = "HKEY_CURRENT_USER\Identities\Default 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)


X = MsgBox("Mail Store Location is: " & vbCR & StoreFolder & vbcr & vbcr & "Would you like to open this folder?", vbYesNo, "Store location")

If X = 6 Then
  WshShell.Run("%WINDIR%\explorer.exe " & StoreFolder)
End If

Set WshShell = Nothing