' ------------------------------------------------------------------------------------
'				GetSetDateFormat.vbs
' Accessing the Windows registry to read/write the MyAlbum date format setting.
' ------------------------------------------------------------------------------------

Option explicit

Const REGBASE = "HKCU\Software\DigitalMATRIX\MyAlbum\Settings"
Dim gwsh, dateFmt

Set gwsh = CreateObject("Wscript.Shell")

dateFmt = gwsh.RegRead( REGBASE & "\DateTimeFormat" )

'on error resume next 
app.Trace "Current date format is:" & dateFmt
'On Error GoTo 0

' %m/%d/%Y - %H:%M:%S
gwsh.RegWrite REGBASE & "\DateTimeFormat", "%m/%d/%Y y %H:%M:%S", "REG_SZ"